VBAで新しいWordドキュメントを作成する方法

皆さん、こんにちは。今日は、ExcelのVBAを使って、新しいWordドキュメントを作成する方法についてお話しします。パソコンやスマホの操作がちょっと苦手な方でも、大丈夫です。一緒にゆっくりと進めていきましょう。

VBAでWordを操作するための準備
新しいWordドキュメントを作成する基本的なコード
ExcelのデータをWordドキュメントに書き込む
作成したWordドキュメントを保存する
よくある質問や疑問
1. Q1: このコードを実行すると、エラーが発生します。どうすればよいですか？
2. Q2: 複数のセルの内容をWordに書き込むにはどうすればよいですか？
今すぐ解決したい！どうしたらいい？
まとめ

VBAでWordを操作するための準備

Wordのイメージ

まず、ExcelからWordを操作するための準備をしましょう。以下の手順で進めていきます。

Excelを開き、AltキーとF11キーを同時に押して、VBAエディターを起動します。
上部のメニューから「ツール」をクリックし、次に「参照設定」を選択します。
表示されたダイアログボックスの中から、「Microsoft Word xx.x Object Library」（xx.xはバージョン番号）にチェックを入れ、「OK」をクリックします。

これで、ExcelのVBAからWordを操作する準備が整いました。

新しいWordドキュメントを作成する基本的なコード

それでは、実際にVBAコードを書いて、新しいWordドキュメントを作成してみましょう。以下のコードをVBAエディターに入力してください。

vba

Sub CreateNewWordDocument()

    ' Wordアプリケーションのオブジェクトを宣言します

    Dim wdApp As Word.Application

    ' 新しいWordアプリケーションを作成します

    Set wdApp = New Word.Application

    ' Wordを表示します

    wdApp.Visible = True

    ' 新しいドキュメントを追加します

    wdApp.Documents.Add

End Sub

このコードを実行すると、Wordが起動し、新しいドキュメントが作成されます。

ExcelのデータをWordドキュメントに書き込む

次に、Excelのデータを新しいWordドキュメントに書き込んでみましょう。例えば、セルA1に入力されたデータをWordに転記する場合、以下のようにコードを追加します。

vba

Sub CreateNewWordDocument()

    Dim wdApp As Word.Application

    Dim wdDoc As Word.Document

    Dim ws As Worksheet

    ' 現在のワークシートを設定します

    Set ws = ThisWorkbook.Sheets("Sheet1")

    Set wdApp = New Word.Application

    wdApp.Visible = True

    ' 新しいドキュメントを作成し、変数に設定します

    Set wdDoc = wdApp.Documents.Add

    ' ExcelのセルA1の内容をWordに書き込みます

    wdDoc.Content.Text = ws.Range("A1").Value

End Sub

このコードを実行すると、セルA1の内容がWordドキュメントに書き込まれます。

作成したWordドキュメントを保存する

最後に、作成したWordドキュメントを保存する方法をご紹介します。以下のコードを追加してください。

vba

Sub CreateNewWordDocument()

    Dim wdApp As Word.Application

    Dim wdDoc As Word.Document

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

    Set wdApp = New Word.Application

    wdApp.Visible = True

    Set wdDoc = wdApp.Documents.Add

    wdDoc.Content.Text = ws.Range("A1").Value

    ' ドキュメントを指定した場所に保存します

    wdDoc.SaveAs2 "C:\Users\YourUsername\Documents\NewDocument.docx"

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

    wdApp.Quit

    ' オブジェクトを解放します

    Set wdDoc = Nothing

    Set wdApp = Nothing

End Sub