皆さん、こんにちは。今日は、ExcelのVBAを使って、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:\path\to\your\document.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:\path\to\your\document.docx", PasswordDocument:="your_password")
複数のWord文書から同時に内容を取得することは可能ですか？
はい、可能です。複数のファイルパスを配列などで管理し、ループ処理で各ファイルを順番に開いて内容を取得することで対応できます。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
いかがでしたか？今回は、ExcelのVBAを使ってWord文書の内容を取得する方法をご紹介しました。最初は難しく感じるかもしれませんが、慣れてくるととても便利です。ぜひチャレンジしてみてください。
他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント