初心者でもできる！Word VBAで表を自動作成する方法

2025.05.272025.05.30

Wordで表を作成する作業、手動で行うと時間がかかりますよね。そこで登場するのが「Word VBA（Visual Basic for Applications）」です。プログラミングの経験がなくても、ちょっとしたコードを使うだけで、表の作成や編集が自動化できるんです。今回は、初心者の方でもわかりやすく、実際に使えるコードとともに解説します。

Word VBAとは？
VBAで表を作成する基本のコード
表にデータを自動で入力する方法
表の書式を整える方法
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAとは？

Wordのイメージ

Word VBAは、Microsoft Wordに組み込まれているプログラミング言語で、文書の操作を自動化するためのツールです。例えば、毎回同じ形式の表を作成する場合、手動で行うと手間がかかりますが、VBAを使えば一度コードを作成するだけで、何度でも自動で表を挿入できます。

VBAで表を作成する基本のコード

まずは、カーソルの位置に5行3列の空の表を挿入する基本的なコードをご紹介します。

Sub 表を挿入する()

    Dim tbl As Table

    Set tbl = Selection.Tables.Add( _

        Range:=Selection.Range, _

        NumRows:=5, _

        NumColumns:=3)

    tbl.Style = "表 (格子)"

End Sub

このコードを実行すると、カーソルの位置に5行3列の表が挿入され、「表 (格子)」というスタイルが適用されます。これだけで、毎回手動で表を作成する手間が省けます。

表にデータを自動で入力する方法

次に、作成した表に自動でデータを入力する方法をご紹介します。以下のコードは、3列4行の表を作成し、各セルに「Cell 1,1」「Cell 1,2」…と順番に入力するものです。

Sub 表にデータを入力する()

    Dim tbl As Table

    Dim cel As Cell

    Dim i As Integer

    Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=4, NumColumns:=3)

    i = 1

    For Each cel In tbl.Range.Cells

        cel.Range.Text = "Cell " & i

        i = i + 1

    Next cel

End Sub

このコードを実行すると、表の各セルに順番にデータが入力されます。大量のデータを手動で入力する手間が省け、効率的に作業が進みます。

表の書式を整える方法

作成した表の書式を整えることで、見た目を美しく、読みやすくすることができます。以下のコードは、表のスタイルを「表 (オレンジ) 1」に設定し、罫線やフォントの色などを適用するものです。

Sub 表の書式を整える()

    Dim tbl As Table

    Set tbl = ActiveDocument.Tables(1)

    tbl.Style = "表 (オレンジ) 1"

    tbl.AutoFormat Format:=wdTableFormatColorful2, _

        ApplyBorders:=True, ApplyFont:=True, ApplyColor:=True

End Sub

このコードを実行すると、表のスタイルが「表 (オレンジ) 1」に変更され、罫線やフォントの色などが適用されます。見た目が整うことで、文書全体の印象も良くなります。