VBAを使ってWord文書の内容を取得する方法【初心者向け解決ガイド】

2025.03.052026.01.27

皆さん、こんにちは。今日は、ExcelのVBAを使って、Word文書の内容を取得する方法についてお話しします。パソコンやスマホが苦手な方でも大丈夫。ゆっくり一緒に学んでいきましょう。

VBAとは？そして、なぜWordと連携するのか
ExcelからWordを操作するための準備
実際にWord文書の内容を取得してみよう
よくある質問や疑問
まとめ

VBAとは？そして、なぜWordと連携するのか

Wordのイメージ

まず、VBAとは何でしょうか？VBAは「Visual Basic for Applications」の略で、ExcelやWordなどのMicrosoft Office製品を自動化するためのプログラミング言語です。これを使うと、手作業で行っていた繰り返しの作業を自動化できるんです。

例えば、複数のWord文書から特定の情報を抜き出してExcelにまとめる作業。手動でやると大変ですが、VBAを使えば一瞬で終わります。便利ですよね。

ExcelからWordを操作するための準備

では、具体的にExcelからWordを操作する方法を見ていきましょう。まずは準備が必要です。

1. VBAエディタを開くExcelを開き、キーボードの「Alt」キーを押しながら「F11」キーを押します。すると、VBAエディタが開きます。

2. 参照設定を行うVBAエディタの上部メニューから「ツール」を選び、その中の「参照設定」をクリックします。表示されたリストの中から「Microsoft Word xx.x Object Library」にチェックを入れ、「OK」をクリックします。これで、ExcelからWordを操作する準備が整いました。

実際にWord文書の内容を取得してみよう

準備ができたら、実際にコードを書いてみましょう。以下の手順で進めます。

1. 新しいモジュールを追加するVBAエディタの左側に表示されているプロジェクトエクスプローラーで、対象のブックを右クリックし、「挿入」から「標準モジュール」を選択します。

2. コードを入力する以下のコードを新しく追加したモジュールに入力します。

vba

   Sub Word文書の内容を取得する()

       ' Wordアプリケーションを宣言

       Dim wdApp As Word.Application

       ' Word文書を宣言

       Dim wdDoc As Word.Document

       ' 段落を格納する変数を宣言

       Dim para As Word.Paragraph

       ' Excelの行番号を指定する変数を宣言

       Dim i As Integer
       ' エラー処理Wordが起動していない場合、新しく起動する

       On Error Resume Next

       Set wdApp = GetObject(, "Word.Application")

       If wdApp Is Nothing Then

           Set wdApp = CreateObject("Word.Application")

       End If

       On Error GoTo 0
       ' Word文書を開く（ファイルパスを指定してください）

       Set wdDoc = wdApp.Documents.Open("C:pathtoyourdocument.docx")
       ' Excelの1行目から書き込み開始

       i = 1
       ' Word文書内の各段落を取得し、Excelに書き込む

       For Each para In wdDoc.Paragraphs

           ' 段落のテキストをExcelのセルに書き込む

           ThisWorkbook.Sheets(1).Cells(i, 1).Value = para.Range.Text

           ' 次の行に移動

           i = i + 1

       Next para
       ' Word文書を閉じる（保存せずに）

       wdDoc.Close False

       ' Wordアプリケーションを終了する

       wdApp.Quit
       ' オブジェクトを解放する

       Set wdDoc = Nothing

       Set wdApp = Nothing

' 処理完了のメッセージを表示 MsgBox "Word文書の内容を取得しました。", vbInformation End Sub

3. コードを実行するコードを入力したら、VBAエディタの上部にある「実行」ボタン（緑色の再生ボタンのようなアイコン）をクリックするか、キーボードの「F5」キーを押して、コードを実行します。

このコードを実行すると、指定したWord文書の各段落の内容が、Excelのシート1のA列に順番に書き込まれます。これで、Word文書の内容をExcelに取り込むことができました。

よくある質問や疑問

Wordがインストールされていないと、このコードは使えませんか？

はい、このコードはExcelからWordを操作するため、Wordがインストールされている必要があります。

Word文書がパスワードで保護されている場合、どうすればいいですか？

パスワード保護されたWord文書を開く場合、`Documents.Open`メソッドにパスワードを指定する必要があります。例えば、以下のように記述します。

vba

Set wdDoc = wdApp.Documents.Open("C:pathtoyourdocument.docx", PasswordDocument:="your_password")

複数のWord文書から同時に内容を取得することは可能ですか？

はい、可能です。複数のファイルパスを配列などで管理し、ループ処理で各ファイルを順番に開いて内容を取得することで対応できます。

まとめ

いかがでしたか？今回は、ExcelのVBAを使ってWord文書の内容を取得する方法をご紹介しました。最初は難しく感じるかもしれませんが、慣れてくるととても便利です。ぜひチャレンジしてみてください。

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