选择并删除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 

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