選擇和刪除單詞標題到下一頁Break Macro 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

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