マクロで見出しを削除するマクロ

Question

H1の見出しが数多くあるWORDドキュメントがあります。特定のH1見出しから次のH1見出しまでのすべての内容を削除できるマクロが必要です。本質的にH1セクションを削除します。同様に、次のH1またはH2の見出しまでH2見出しから削除したいかもしれません。

Answer 1

oParagraph.Style（oParagraphはParagraphオブジェクト）を使用して段落のスタイルを指定できます。したがって、あなたは次のようなことをすることができます：

Dim oStartHeadingParagraph As Paragraph 
Set oStartHeadingParagraph = Selection.Paragraphs(1) 

If oStartHeadingParagraph.Style <> "Heading 1" Then 
    MsgBox "Please select the Heading 1 paragraph for the section you want to delete." 
Else 

    Dim oParagraph As Paragraph 
    Set oParagraph = oStartHeadingParagraph 

    Do While Not oStartHeadingParagraph.Next Is Nothing 
     If oStartHeadingParagraph.Next.Style = "Heading 1" Then 
      Exit Do 
     Else 
      oStartHeadingParagraph.Next.Range.Delete 
     End If 
    Loop 

    oStartHeadingParagraph.Range.Delete 

End If 

Answer 2

アウトラインビューで文書を編集します。そこに移動し、次のように唯一の見出しは、レベル1を選択：

View > Outline 

次に、レベルを選択します。

Show Level > Level 1. 

あなたは、もはや維持したいだけH1の見出しを削除します。 &ドロップ見出しをドラッグすると、従属コンテンツが表示されます。

これは、必要に応じて大規模な編集を行うのに最適です。