Word VBAで文章を取得する方法

Word VBAを使って、文書から特定の文章を取得したいと思ったことはありませんか？特に、パソコンやスマホに不安がある方にとって、プログラムの世界は少し敷居が高く感じられるかもしれません。しかし、心配はいりません。今回は、初心者の方でもわかりやすく、Word VBAを使って文書から文章を取得する方法を、実際の例を交えてご紹介します。

Word VBAとは？
文章を取得する基本的な方法
1. Selectionオブジェクトを使う方法
2. Rangeオブジェクトを使う方法
実際の活用例
1. 複数のWord文書から特定の文章を抽出する
2. コメント付きの文章を抽出する
よくある質問
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAとは？

Wordのイメージ

まず、Word VBAとは何かを簡単に説明します。VBA（Visual Basic for Applications）は、Microsoft Office製品に組み込まれているプログラミング言語です。これを使うことで、WordやExcelなどの操作を自動化したり、カスタマイズしたりすることができます。

例えば、毎日同じ内容の報告書を作成しているとしましょう。その際、VBAを使って、指定したフォルダ内のWord文書から特定の文章を自動で抽出し、まとめてExcelに転記することが可能です。これにより、手作業での入力作業が大幅に削減され、時間の節約になります。

文章を取得する基本的な方法

Word VBAで文章を取得するためには、主に以下の2つの方法があります。

Selectionオブジェクトを使う方法

Selectionオブジェクトは、Word文書上で現在選択されている範囲や、カーソルの位置を表すオブジェクトです。例えば、文書内で特定の部分をマウスで選択し、その選択範囲のテキストを取得することができます。

以下は、Selectionオブジェクトを使って選択範囲のテキストを取得する例です。

vba

Sub GetSelectedText()

    Dim selectedText As String

    selectedText = Selection.Text

    MsgBox selectedText

End Sub

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

Rangeオブジェクトを使う方法

Rangeオブジェクトは、文書内の任意の範囲を指定することができるオブジェクトです。特定の段落やページ、見出しなどを指定して、その範囲のテキストを取得することができます。

例えば、文書の最初の段落のテキストを取得するには、以下のように記述します。

vba

Sub GetFirstParagraph()

    Dim firstParagraph As String

    firstParagraph = ActiveDocument.Paragraphs(1).Range.Text

    MsgBox firstParagraph

End Sub

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