排版中有一条不成文的规则,即句子结尾后只能有一个空格。这样可以在打印的页面上提供最佳的视觉外观,尤其是在使用比例字体时。问题在于,很容易在句子的末尾添加额外的空格,甚至没有意识到。下面的宏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的旧菜单界面在这里: