有时，当您使用文档时，需要删除多余的段落标记。如果您正在处理ASCII文件或最初使用其他文字处理器格式化的文件，则尤其如此。手动删除多余的段落标记的过程非常耗时。

如果您发现自己处于这种情况，则可能会发现此宏感兴趣。它从文档中删除多余的段落标记。完成后，文档中甚至不应连续包含两个段落标记。

Sub ReplacePara()

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     With Selection.Find         .Text = "^p^p"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute     While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, Count:=1         Selection.TypeBackspace         Selection.MoveLeft Unit:=wdCharacter, Count:=2         Selection.Find.Execute     Wend End Sub

此宏分为两部分。第一部分-依赖Selection.Find方法-使用Word的内置查找和替换功能按顺序查找两个段落标记的所有实例。宏不会替换连续的段落标记；它只是找到他们。

然后，使用Selection.Find.Found-属性删除宏的第二部分，以删除两个连续的段落标记中的第二个。

采用这种方法的原因是因为它使其余段落标记的格式正确。例如，如果两个连续的段落标记使用彼此不同的格式，则第一段落标记的格式保持不变。如果只是用单个段落标记替换了连续的段落标记，则替换完成后，可能无法完全按照所需的格式进行格式化。

请注意，Selection.Find.Found用作While循环的“标志”。

此属性反映最新的“查找”操作的状态。如果为True，则搜索成功；否则为0。如果为False，则找不到任何内容（因此，没有任何更改）。

注意：

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

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

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（998）适用于Microsoft Word 2007、2010、2013和2016。