Strip Trailing Spaces (Microsoft Word)
Vielleicht bin ich einer dieser zwanghaft-obsessiven Typen, aber ich gehe immer meine Dokumente durch, um sicherzustellen, dass am Ende eines Absatzes keine Leerzeichen stehen. Dies macht das Dokument sauberer und kleiner. Wenn Sie ASCII-Dateien oder -Dokumente formatieren, die Sie von anderen Personen erhalten, müssen Sie nach nachgestellten Leerzeichen suchen und diese entfernen, während Sie die Datei für Word formatieren. Das folgende Makro, StripSpaces, entfernt alle Leerzeichen vor Absatzmarkierungen und manuellen Zeilenumbrüchen in Ihrem Dokument.
Sub StripSpaces() Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " ^p" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchWholeWord = False .MatchWildcards = False End With Selection.Find.Execute While Selection.Find.Found Selection.HomeKey Unit:=wdStory Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Wend Selection.Find.Text = " ^l" Selection.Find.Replacement.Text = "^l" Selection.Find.Execute While Selection.Find.Found Selection.HomeKey Unit:=wdStory Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Wend End Sub
_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.
WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.
(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (13376) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier: