Beim Satz gibt es eine ungeschriebene Regel, dass nach dem Ende eines Satzes nur ein Leerzeichen stehen darf. Dies bietet das beste visuelle Erscheinungsbild auf einer gedruckten Seite, insbesondere bei Verwendung proportionaler Schriftarten. Das Problem ist, dass es einfach ist, am Ende eines Satzes zusätzliche Leerzeichen hinzuzufügen, ohne es zu merken. Das folgende Makro, CheckSpaces, ist ein Tool, mit dem Sie das Ende Ihrer Sätze überprüfen können:

Sub CheckSpaces()

Call MakeChanges("Normal", ".")

Call MakeChanges("Normal", "!")

Call MakeChanges("Normal", ":")

End Sub
Sub MakeChanges(StyName As String, PuncMark As String)

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     Selection.Find.Style = ActiveDocument.Styles(StyName)

Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = PuncMark & "   "

.Replacement.Text = PuncMark & " "

.Forward = True         .Wrap = wdFindContinue         .Format = True     End With     Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = PuncMark & "  "

Selection.Find.Execute Replace:=wdReplaceAll End Sub

CheckSpaces nimmt nur zusätzliche Leerzeichen aus Absätzen, die mit dem Normal-Stil formatiert sind. Dies stellt sicher, dass Sie die Formatierung in Tabellen oder anderen Designelementen nicht durcheinander bringen, wenn Sie nach Zeiträumen zusätzliche Leerzeichen benötigen. Wenn Sie die Art der gesuchten Interpunktion ändern oder in Absätzen unterschiedlichen Stils suchen möchten, fügen Sie MakeChanges nach der vierten Zeile im Makro zusätzliche Aufrufe hinzu.

_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 weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (9695) 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:

Konsistenter Abstand.