Zeilenumbrüche löschen mit Makro

Computer: Software & Programmierung Office Software
1

Hallo Word-Experten!

Ich habe ein Makro aufgezeichnet, das mir aus HTML-Texten die Zeilenumbrüche löscht:

Sub Textkürzung()
 ActiveWindow.ActivePane.SmallScroll Down:=12
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
 .Text = "^p"
 .Replacement.Text = " "
 .Forward = True
 .Wrap = wdFindAsk
 .Format = False
 .MatchCase = False
 .MatchWholeWord = False
 .MatchWildcards = False
 .MatchSoundsLike = False
 .MatchAllWordForms = False
 End With
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
 .Text = "^p"
 .Replacement.Text = " "
 .Forward = True
 .Wrap = wdFindAsk
 .Format = False
 .MatchCase = False
 .MatchWholeWord = False
 .MatchWildcards = False
 .MatchSoundsLike = False
 .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Wie kann ich dieses umbauen, dass es mir die Absätze (also Leerzeilen) drinlässt?

Gruß Alex

2

hi Alex

suche zuerst nach „^p^p“ und ersetze es mit „“

danach ersetze „^p“ durch " "

zuletzt ersetze „“ wieder mit „^p^p“

mit „“ meine ich übrigens tatsächlich den text, nicht irgendwelche steuerzeichen. alternativ kannst du jeden beliebigen text/zeichen verwenden, von dem du dir sicher bist, dass er nicht in deinem dokument vorkommt.

ach ja, zu deinem makro: du hast da offenbar den code zum festlegen der ersetzen-parameter doppel aufgezeichnet, ersetzt aber nur einmal. ist zwar im endeffekt egal, weil es nicht stört, ist aber nicht sehr schön. den doppelten code könnstest du entfernen.

lg
erwin

3

hi Erwin

Ich musste das Makro noch ein wenig anpassen, aber sonst hat es tadellos funktioniert, danke.

Gruß Alex