也许我是这些强迫症类型之一，但是我总是仔细阅读我的文档，以确保段落末尾没有尾随空格。这使文档更整齐，更小。如果要格式化从其他人收到的ASCII文件或文档，则在为Word格式化文件时，需要搜索尾随空格并删除它们。下面的宏StripSpaces删除了整个文档中段落标记和手动换行符之前的所有空格。

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

注意：

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

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

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

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

Strip Trailing Spaces。