Word VBAで段落を削除する方法｜初心者でもできる簡単マクロ

Wordの文書を作成していると、不要な段落が増えてしまうことがありますよね。特に、空白の段落や不要な改行が多くなると、見た目もスッキリしません。そんなときに便利なのが、Word VBA（Visual Basic for Applications）を使ったマクロです。今回は、初心者の方でもわかりやすく、段落を削除する方法をご紹介します。

目次
Word VBAとは？
段落を削除する基本的なマクロ
空の段落を削除するマクロ
特定の文字列を含む段落を削除するマクロ
段落番号を削除するマクロ
段落削除マクロの使い方
よくある質問や疑問
まとめ

Word VBAとは？

Word VBAとは、Microsoft Wordに組み込まれているプログラミング言語の一つで、文書の自動化やカスタマイズを行うことができます。例えば、繰り返しの作業を自動化したり、特定の条件に合った段落を削除したりすることができます。

段落を削除する基本的なマクロ

まずは、最も基本的な方法から始めましょう。カーソルがある段落を削除するマクロです。

Sub DeleteCurrentParagraph()

    Selection.Paragraphs(1).Range.Delete

End Sub

このマクロは、カーソルがある段落を1つだけ削除します。複数の段落を削除したい場合は、以下のように書き換えることができます。

Sub DeleteMultipleParagraphs()

    Dim i As Long

    For i = 1 To 5 ' ここで削除する段落数を指定

        Selection.Paragraphs(1).Range.Delete

    Next i

End Sub

このマクロは、カーソルがある段落から5つの段落を削除します。削除する段落数は、`For i = 1 To 5`の数字を変更することで調整できます。

空の段落を削除するマクロ

文書内に空の段落が多く含まれている場合、それらを一括で削除するマクロも便利です。

Sub DeleteEmptyParagraphs()

    Dim para As Paragraph

    For Each para In ActiveDocument.Paragraphs

        If Len(para.Range.Text) = 1 Then ' 改行コードのみの場合

            para.Range.Delete

        End If

    Next para

End Sub

このマクロは、文書内のすべての段落をチェックし、内容が改行コードのみの段落を削除します。

特定の文字列を含む段落を削除するマクロ

特定の文字列を含む段落を削除したい場合、以下のようなマクロを使います。

Sub DeleteParagraphsContainingText()

    Dim para As Paragraph

    Dim searchText As String

    searchText = "削除したい文字列" ' ここに検索する文字列を入力

    For Each para In ActiveDocument.Paragraphs

        If InStr(para.Range.Text, searchText) > 0 Then

            para.Range.Delete

        End If

    Next para

End Sub

このマクロは、文書内のすべての段落をチェックし、指定した文字列を含む段落を削除します。

段落番号を削除するマクロ

文書に段落番号が付いている場合、それらを削除するマクロもあります。

Sub RemoveParagraphNumbers()

    ActiveDocument.RemoveNumbers NumberType:=wdNumberParagraph

End Sub

このマクロは、文書内のすべての段落番号を削除します。

段落削除マクロの使い方

Wordを開き、`Alt + F11`キーを押してVBAエディタを開きます。
メニューから「挿入」→「標準モジュール」を選択します。
表示されたモジュールに、上記のマクロコードをコピー＆ペーストします。
`F5`キーを押して、マクロを実行します。

よくある質問や疑問

Q1: マクロを実行するとエラーが出ます。どうすれば良いですか？

エラーが出る場合、以下の点を確認してください。

マクロのコードに誤りがないか確認する。
Wordのセキュリティ設定でマクロが有効になっているか確認する。
VBAエディタでデバッグを行い、エラーの箇所を特定する。

Q2: マクロを実行すると、削除した段落が元に戻せません。どうすれば良いですか？

マクロを実行する前に、文書を保存しておくことをおすすめします。万が一、誤って削除してしまった場合でも、保存したバージョンから復元することができます。

Q3: 複数の文書で同じマクロを使いたい場合、どうすれば良いですか？

マクロをテンプレート（.dotmファイル）として保存し、複数の文書で共通して使用することができます。テンプレートを作成するには、VBAエディタで「ファイル」→「名前を付けて保存」を選択し、ファイルの種類を「Wordマクロ有効テンプレート（.dotm）」に設定して保存します。

まとめ

Word VBAを使うことで、文書内の不要な段落を簡単に削除することができます。初心者の方でも、上記のマクロを試してみることで、作業効率を大幅に向上させることができるでしょう。マクロを活用して、快適な文書作成ライフを送りましょう。

他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。