Excel VBAでWord文書を操作する方法【初心者向け解決ガイド】

2025.03.06

皆さん、こんにちは！今日は、Excel VBAを使ってWord文書を操作する方法についてお話しします。特に、ExcelからWordを開いて内容をコピーする方法を、初心者の方にもわかりやすく解説します。

Excel VBAでWordを操作する基本
1. ExcelからWordを開く方法
ExcelからWordの内容をコピーする方法
1. Wordの内容をExcelにコピーする手順
よくある質問や疑問
1. Excel VBAでWordを操作する際の注意点はありますか？
2. Wordの特定の部分だけをExcelにコピーすることは可能ですか？
今すぐ解決したい！どうしたらいい？
まとめ

Excel VBAでWordを操作する基本

Wordのイメージ

まず、Excel VBAを使ってWordを操作する基本的な方法を見ていきましょう。これは、ExcelからWordを開き、特定の操作を行う際の基本となります。

ExcelからWordを開く方法

Excel VBAを使ってWordを開くには、以下の手順を踏みます。

Wordアプリケーションのオブジェクトを作成する。
作成したオブジェクトを使って、Word文書を開く。

具体的なコードは以下のようになります。

vba

Sub OpenWordDocument()

    Dim wdApp As Object

    Dim wdDoc As Object

    ' Wordアプリケーションを作成

    Set wdApp = CreateObject("Word.Application")

    ' Wordを表示

    wdApp.Visible = True

    ' 特定のWord文書を開く

    Set wdDoc = wdApp.Documents.Open("C:\path\to\your\document.docx")

End Sub

このコードを実行すると、指定したパスにあるWord文書が開かれます。

ExcelからWordの内容をコピーする方法

次に、ExcelからWordの内容をコピーする方法を見ていきましょう。例えば、Word文書内の特定のテキストや表をExcelにコピーする場合です。

Wordの内容をExcelにコピーする手順

以下の手順で、Wordの内容をExcelにコピーできます。

先ほどの方法でWord文書を開く。
Word文書内の特定の範囲を選択し、コピーする。
Excelの特定のセルに貼り付ける。

具体的なコードは以下のようになります。

vba

Sub CopyFromWordToExcel()

    Dim wdApp As Object

    Dim wdDoc As Object

    Dim wdRange As Object

    ' Wordアプリケーションを作成

    Set wdApp = CreateObject("Word.Application")

    ' Wordを非表示（バックグラウンドで実行）

    wdApp.Visible = False

    ' 特定のWord文書を開く

    Set wdDoc = wdApp.Documents.Open("C:\path\to\your\document.docx")

    ' Word文書内の全内容を選択

    Set wdRange = wdDoc.Content

    wdRange.Copy

    ' Excelの特定のセルに貼り付け

    ThisWorkbook.Sheets("Sheet1").Range("A1").PasteSpecial

    ' Wordを閉じる

    wdDoc.Close False

    wdApp.Quit

    ' オブジェクトを解放

    Set wdRange = Nothing

    Set wdDoc = Nothing

    Set wdApp = Nothing

End Sub