Es kann vorkommen, dass Sie mit einem Dokument arbeiten und zusätzliche Absatzmarkierungen entfernen müssen. Dies gilt insbesondere dann, wenn Sie mit einer ASCII-Datei oder einer Datei arbeiten, die möglicherweise ursprünglich mit einem anderen Textverarbeitungsprogramm formatiert wurde. Dieser Vorgang des manuellen Entfernens zusätzlicher Absatzmarkierungen kann sehr zeitaufwändig sein.

Wenn Sie sich in dieser Situation befinden, finden Sie möglicherweise dieses Makro von Interesse. Es entfernt zusätzliche Absatzmarkierungen aus einem Dokument. Wenn dies abgeschlossen ist, sollten in Ihrem Dokument nicht einmal zwei Absatzmarkierungen hintereinander vorhanden sein.

Sub ReplacePara()

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     With Selection.Find         .Text = "^p^p"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute     While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, Count:=1         Selection.TypeBackspace         Selection.MoveLeft Unit:=wdCharacter, Count:=2         Selection.Find.Execute     Wend End Sub

Dieses Makro besteht aus zwei Teilen. Der erste Teil, der auf der Selection.Find-Methode basiert, verwendet die integrierten Such- und Ersetzungsfunktionen von Word, um alle Instanzen von zwei Absatzmarken nacheinander zu finden. Das Makro ersetzt nicht die sequentiellen Absatzmarkierungen. es findet sie einfach.

Anschließend wird der zweite Teil des Makros mithilfe der Selection.Find.Found-Eigenschaft aktiviert, um die zweite der beiden aufeinander folgenden Absatzmarkierungen zu löschen.

Der Grund für diesen Ansatz liegt darin, dass die Formatierung auf der verbleibenden Absatzmarke korrekt bleibt. Wenn beispielsweise die beiden aufeinander folgenden Absatzmarken unterschiedliche Formatierungen verwenden, bleibt die Formatierung der ersten Absatzmarke unverändert. Wenn Sie die sequentiellen Absatzmarken einfach durch eine einzelne Absatzmarke ersetzt haben, ist es möglich, dass Sie die Formatierung nach Abschluss des Ersetzens nicht genau so haben, wie Sie es möchten.

Beachten Sie, dass Selection.Find.Found als „Flag“ für die While-Schleife verwendet wird.

Diese Eigenschaft gibt den Status des letzten Suchvorgangs wieder. Wenn True, war die Suche erfolgreich. Wenn False, wurde nichts gefunden (und daher nichts zu ändern).

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (998) gilt für Microsoft Word 2007, 2010, 2013 und 2016.