连续查找的VBA

ke3088

以下代码是录制后修改而成的，不连续查找：

Sub 查找()
    With ActiveDocument.Content.Find
        .ClearFormatting '删除格式设置
        .Text = "^13^12" '查找的文本
        .Replacement.Text = "" '替换后的文本
        .Forward = True '搜索方向：True 向下，False 向上
        .Wrap = wdFindStop '停止查找
        .MatchWholeWord = True '单词：True 完整，False 部分
        .MatchWildcards = True '通配符：True 包含，False 不包含
        If .Execute Then
           .Parent.Select
            Selection.MoveLeft unit:=wdCharacter, Count:=1
            Selection.TypeParagraph
        End If
    End With
End Sub
现向各位大神求助，如何修改才可连续查找，谢谢！

vbee

ActiveDocument.Range.Find.Execute  "^13^12", , , 0, , , , , , "^p", 2

ke3088

vbee 发表于 2018-11-6 17:32
ActiveDocument.Range.Find.Execute  "^13^12", , , 0, , , , , , "^p", 2

vbee兄，谢谢您！您的代码是删除分节符，我代码想达到的效果是查找到相连的段落标记符、分节符后，在段落标记符前回车，增加一段，使相连的段落标记符、分节符在下一段。谢谢

vbee

ActiveDocument.Range.Find.Execute "^13^12", , , 0, , , , , , "^13^&", 2

413191246se

谢谢 VBEE 老师！我还头一回见到用“^&”来表示“查找内容”框中的字符，当然我也读过帮助，也知道，但从来没用过，这回见到了；但我稍微给 VBEE 老师的代码修改了一下。因为，和分节符在同一行的回车符，它的前面、后面均可放置光标，说明这种回车符是“假段落标记”（非^p，但的确是^13）；而另一种回车符光标只能放在前面不能放在后面，这种回车符就是“真段落标记”了（即是^p，也是^13，在 Word 里这个真段落标记是记载每个段落的格式信息的，非常重要）！修正代码如下：
Sub test()
    ActiveDocument.Content.Find.Execute "^13^12", , , 0, , , , , , "^p^&", 2
End Sub

413191246se

楼主也可采用下面的代码：（^12包括：分节符（^b）和分页符（^m），用 ^b 更为准确。）
Sub test()
    ActiveDocument.Content.Find.Execute "^13^b", , , 0, , , , , , "^p^&", 2
End Sub

413191246se

另外，楼主，我注意到你入坛时间很久了，也算是本坛元老了！祝贺！

ke3088

413191246se 发表于 2018-11-7 23:33
楼主也可采用下面的代码：（^12包括：分节符（^b）和分页符（^m），用 ^b 更为准确。）
Sub test()
    A ...

413191246se兄，谢谢您！代码挺好用的。我虽然入坛的时间比较久，但对vba的使用与理解还停留在录制的水平上，向您学习