选择并删除Word标题到下一页中断宏VBA

Question

我有一份包含各种标题的文件。我希望能够做到以下几点：

1. 从“标题1”样式中查找特定标题。
   
2. 删除标题，标题后面的内容，包括下一个分页符。
   

所以删除：标题+其内容+分页符

我知道如何使用Word宏查找文本，但我不知道如何只搜索标题。



非常感谢您的帮助。

Answer 1

我发现你需要在选择之间启用扩展。

Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Heading 3") ' Search only "Heading 3"
    With Selection.Find
        .Text = "MIPwDMU"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Extend
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^m"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
    End With
    Selection.Find.Execute
    Selection.Delete

这将删除标题和分页符之间的所有文本。