Word VBAで文書から文字列を簡単に取得する方法

Wordの文書から特定の文字列を自動で取得したいと思ったことはありませんか？例えば、見出しや特定の段落、選択した部分のテキストをVBAを使って抽出する方法を、初心者の方にもわかりやすくご紹介します。

Word VBAで文字列を取得する基本の方法
初心者でもできる！実践的な活用例
1. 例1: 見出し1のテキストを取得する
2. 例2: 表内のテキストを取得する
よくある質問や疑問
1. Q1: VBAのコードをどこで実行すれば良いですか？
2. Q2: 取得したテキストをExcelに転送することはできますか？
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAで文字列を取得する基本の方法

Wordのイメージ

Word VBAでは、文書内の文字列を取得するために主に以下の方法を使用します。

ここがポイント！

Selection.Text: 現在選択されている部分のテキストを取得します。
Range.Text: 指定した範囲のテキストを取得します。
Find.Execute: 特定の文字列を検索し、その位置を取得します。

これらの方法を組み合わせることで、目的の文字列を効率的に取得することができます。

Selection.Textを使って選択範囲の文字列を取得する

例えば、文書内で特定の部分を選択し、その選択範囲のテキストを取得したい場合、以下のようなコードを使用します。

vba

Sub GetSelectedText()

    Dim selectedText As String

    selectedText = Selection.Text

    MsgBox selectedText

End Sub

このコードを実行すると、選択した部分のテキストがメッセージボックスに表示されます。

Range.Textを使って特定の範囲の文字列を取得する

文書全体や特定の段落など、範囲を指定してテキストを取得する場合、Rangeオブジェクトを使用します。

vba

Sub GetRangeText()

    Dim rangeText As String

    rangeText = ActiveDocument.Range.Text

    MsgBox rangeText

End Sub

このコードを実行すると、文書全体のテキストがメッセージボックスに表示されます。

Find.Executeを使って特定の文字列を検索して取得する

文書内で特定の文字列を検索し、その位置を取得する場合、FindオブジェクトのExecuteメソッドを使用します。

vba

Sub FindText()

    With Selection.Find

        .ClearFormatting

        .Text = "検索する文字列"

        .Execute

        If .Found Then

            MsgBox "文字列が見つかりました。"

        Else

            MsgBox "文字列が見つかりませんでした。"

        End If

    End With

End Sub

このコードを実行すると、指定した文字列が文書内で見つかると「文字列が見つかりました。」と表示されます。

初心者でもできる！実践的な活用例

実際に、これらの方法を使ってどのようなことができるのでしょうか？いくつかの例を見てみましょう。

例1: 見出し1のテキストを取得する

文書内の「見出し1」のスタイルが適用された部分のテキストを取得するには、以下のようなコードを使用します。

vba

Sub GetHeading1Text()

    With Selection.Find

        .ClearFormatting

        .Style = wdStyleHeading1

        .Execute

        If .Found Then

            MsgBox "見出し1のテキスト: " & Selection.Text

        Else

            MsgBox "見出し1が見つかりませんでした。"

        End If

    End With

End Sub

このコードを実行すると、文書内で最初に見つかった「見出し1」のテキストがメッセージボックスに表示されます。

例2: 表内のテキストを取得する

文書内の表からテキストを取得する場合、以下のようなコードを使用します。

vba

Sub GetTableText()

    Dim tbl As Table

    Set tbl = ActiveDocument.Tables(1)

    MsgBox "表の1行目、1列目のテキスト: " & tbl.Cell(1, 1).Range.Text

End Sub

このコードを実行すると、文書内の最初の表の1行目、1列目のテキストがメッセージボックスに表示されます。