Word VBAでテキストボックスに文字を入力する方法｜初心者でもできる簡単マクロ解説

Wordで文書を作成しているとき、「ヘッダーに日付を自動で入れたい」「決まった位置に名前を表示したい」といった場面がよくありますよね。そんなときに便利なのが、VBA（Visual Basic for Applications）を使ってテキストボックスに文字を入力する方法です。今回は、初心者の方でもわかりやすく、実際の操作手順を交えて解説します。

テキストボックスとは？
VBAでテキストボックスに文字を入力する基本的な方法
ヘッダーに日付を自動で挿入する方法
よくある質問
今すぐ解決したい！どうしたらいい？
まとめ

テキストボックスとは？

Wordのイメージ

まず、テキストボックスとは、文書内に自由に配置できる文字入力領域のことです。例えば、文書のヘッダーやフッター、図形の中などに配置して、そこに文字を入力することができます。VBAを使うと、これらのテキストボックスに自動で文字を入力したり、内容を変更したりすることができます。

VBAでテキストボックスに文字を入力する基本的な方法

VBAを使ってテキストボックスに文字を入力するには、以下の手順でコードを記述します。

Visual Basic Editorを開く
Wordを開き、 + キーを押して、Visual Basic Editorを起動します。
新しいモジュールを挿入
メニューから → を選択し、新しいモジュールを作成します。
コードを記述
以下のコードをモジュールに貼り付けます。

Sub テキストボックスに文字を入力()

    Dim shp As Shape

    Set shp = ActiveDocument.Shapes.AddTextbox( _

        Orientation:=msoTextOrientationHorizontal, _

        Left:=100, Top:=100, Width:=200, Height:=50)

    shp.TextFrame.TextRange.Text = "こんにちは、Word VBA!"

End Sub

このコードを実行すると、文書の指定した位置にテキストボックスが追加され、その中に「こんにちは、Word VBA!」という文字が表示されます。

ヘッダーに日付を自動で挿入する方法

次に、文書のヘッダーに自動で日付を挿入する方法を紹介します。これもVBAを使うことで簡単に実現できます。

ヘッダーを選択
文書を開き、 → を選択して、ヘッダー部分を表示させます。
VBAコードを記述
先ほどと同様に、Visual Basic Editorを開き、以下のコードを新しいモジュールに貼り付けます。

Sub ヘッダーに日付を挿入()

    Dim shp As Shape

    Set shp = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.AddTextbox( _

        Orientation:=msoTextOrientationHorizontal, _

        Left:=100, Top:=50, Width:=200, Height:=50)

    shp.TextFrame.TextRange.Text = "日付: " & Date

End Sub

このコードを実行すると、ヘッダー部分に「日付: yyyy/mm/dd」の形式で現在の日付が表示されます。