選擇並刪除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 

這將刪除標題和分頁符之間的所有文本。