Word VBAで表の数値を一括修正する方法【初心者向け解説】

Wordの文書にある表の数値を一括で修正したいとき、手作業では時間がかかりすぎてしまいますよね。そこで活躍するのが「Word VBA（Visual Basic for Applications）」です。今回は、初心者の方でもわかりやすく、実際に使えるマクロコードを紹介しながら、操作手順を解説します。

Word VBAとは？
なぜ手作業ではなくVBAを使うのか？
VBAを使う前に準備すること
実際に使える！表の数値を一括修正するVBAコード
コードの解説
実際の使用例
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAとは？

Wordのイメージ

Word VBAとは、Microsoft Wordに組み込まれているプログラミング言語です。これを使うと、繰り返しの作業や複雑な編集を自動化できます。例えば、表の中の数値を一括で変更したり、特定の条件に合ったセルだけを修正したりすることが可能です。

なぜ手作業ではなくVBAを使うのか？

例えば、経理部門で毎月数百行の表を手作業で修正しているとしましょう。手作業ではミスが起きやすく、時間もかかります。しかし、VBAを使えば、数行のコードでその作業を数秒で終わらせることができます。これにより、ミスを減らし、作業効率を大幅に向上させることができます。

VBAを使う前に準備すること

VBAを使うには、まずWordの「開発」タブを表示させる必要があります。以下の手順で設定できます

Wordを開き、左上の「ファイル」をクリックします。
「オプション」を選択し、「リボンのユーザー設定」をクリックします。
「開発」にチェックを入れ、「OK」をクリックします。

これで「開発」タブが表示され、VBAエディタを開くことができます。

実際に使える！表の数値を一括修正するVBAコード

以下のコードは、Word文書内のすべての表を対象に、指定した数値を一括で修正するものです

vba

Sub 修正する()

    Dim tbl As Table

    Dim cel As Cell

    Dim 修正前 As String

    Dim 修正後 As String
    ' 修正前と修正後の数値を設定

    修正前 = "100"

    修正後 = "200"

' 文書内のすべての表をループ For Each tbl In ActiveDocument.Tables ' 各表のセルをループ For Each cel In tbl.Range.Cells ' セルの内容が修正前の数値と一致する場合 If cel.Range.Text Like "*" & 修正前 & "*" Then ' セルの内容を修正後の数値に変更 cel.Range.Text = Replace(cel.Range.Text, 修正前, 修正後) End If Next cel Next tbl End Sub

このコードでは、文書内のすべての表を対象に、セルの内容が「100」と一致する場合に、それを「200」に変更します。

コードの解説

* `Dim tbl As Table`表を表す変数を宣言します。
* `Dim cel As Cell`セルを表す変数を宣言します。
* `修正前 = “100”`修正前の数値を設定します。
* `修正後 = “200”`修正後の数値を設定します。
* `For Each tbl In ActiveDocument.Tables`文書内のすべての表をループします。
* `For Each cel In tbl.Range.Cells`各表のセルをループします。
* `If cel.Range.Text Like “*” & 修正前 & “*” Then`セルの内容が修正前の数値と一致する場合に処理を行います。
* `cel.Range.Text = Replace(cel.Range.Text, 修正前, 修正後)`セルの内容を修正後の数値に変更します。