排版中有一条不成文的规则，即句子结尾后只能有一个空格。这样可以在打印的页面上提供最佳的视觉外观，尤其是在使用比例字体时。问题在于，很容易在句子的末尾添加额外的空格，甚至没有意识到。下面的宏CheckSpaces是一个可用于再次检查句子结尾的工具：

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将仅在使用Normal样式设置的段落中保留多余的空格。这样可以确保您不会弄乱表格或其他设计元素中的格式，在这些内容中，句点后可能需要多余的空间。如果要更改搜索的标点符号的类型，或在不同样式的段落中搜索，请在宏的第四行之后添加对MakeChanges的其他调用。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（9695）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

一致间距。