Word VBAで段落を選択する方法【初心者向け解決ガイド】

2025.03.132026.01.27

皆さん、こんにちは。今日は、Microsoft WordのVBA（Visual Basic for Applications）を使って、特定の段落を選択する方法についてお話しします。パソコンやスマホの操作が苦手な方でも、安心して取り組める内容になっていますので、ぜひ最後までご覧ください。

VBAとは何か？
Wordでの段落操作の基本
1. 段落を選択する基本的な方法
特定のキーワードを含む段落を選択する方法
複数の段落を順次選択する方法
よくある質問や疑問
1. Q1: VBAのコードをどこに入力すれば良いですか？
2. Q2: VBAを使うと、どのような作業が自動化できますか？
まとめ

VBAとは何か？

Wordのイメージ

まず、VBAとは何でしょうか？簡単に言うと、Microsoft Office製品に組み込まれているプログラミング言語で、作業の自動化やカスタマイズを可能にします。例えば、毎回手動で行っている作業を自動化することで、時間と労力を節約できます。

Wordでの段落操作の基本

Wordでは、文章を段落ごとに処理することが多いです。VBAを使うことで、特定の段落を選択したり、書式を変更したりすることが可能です。これにより、大量の文書を効率的に編集できます。

段落を選択する基本的な方法

具体的には、以下のようなコードを使って、文書内の最初の段落を選択し、太字にすることができます。

vba

Sub SelectFirstParagraph()

    ActiveDocument.Paragraphs(1).Range.Select

    Selection.Font.Bold = True

End Sub

このコードは、文書内の最初の段落を選択し、その文字を太字に設定します。

特定のキーワードを含む段落を選択する方法

次に、特定のキーワードを含む段落を選択する方法をご紹介します。例えば、「契約書」という言葉を含む段落をすべて見つけて、ハイライト表示したい場合、以下のようなコードを使用します。

vba

Sub HighlightParagraphsWithKeyword()

    Dim oRng As Range

    Set oRng = ActiveDocument.Range

    With oRng.Find

        Do While .Execute(FindText:="契約書")

            oRng.Paragraphs(1).Range.HighlightColorIndex = wdYellow

            oRng.Collapse 0

        Loop

    End With

End Sub

このコードは、文書全体を検索し、「契約書」というキーワードを含む段落を見つけるたびに、その段落を黄色でハイライトします。

複数の段落を順次選択する方法

また、複数の段落を順番に選択したい場合、以下のようなコードを使用します。

vba

Sub SelectParagraphsSequentially()

    Dim i As Integer

    For i = 1 To ActiveDocument.Paragraphs.Count

        ActiveDocument.Paragraphs(i).Range.Select

        ' ここで必要な処理を追加

    Next i

End Sub

このコードは、文書内のすべての段落を順番に選択し、各段落に対して必要な処理を実行します。