Word VBAでテーブルを削除する方法【初心者向け解決ガイド】

皆さん、こんにちは。今日は、WordのVBAを使ってテーブルを削除する方法についてお話しします。パソコンやスマホの操作が少し苦手な方でも、安心して取り組める内容になっていますので、ぜひ最後までご覧ください。

VBAって何？
Wordでのテーブル操作を自動化するメリット
具体的なVBAコードの紹介
特定の条件に合致するテーブルや行の削除
1. 特定の文字列を含む行を削除するコード例
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

VBAって何？

Wordのイメージ

まず最初に、「VBA」という言葉を耳にしたことがない方もいらっしゃるかもしれません。VBAとは、「Visual Basic for Applications」の略で、Microsoft Office製品（WordやExcelなど）を自動化するためのプログラミング言語です。難しそうに聞こえるかもしれませんが、基本的な操作を覚えれば、日常の作業をとても効率化できます。

Wordでのテーブル操作を自動化するメリット

Wordで文書を作成していると、テーブル（表）を使うことが多いですよね。例えば、データの一覧やスケジュール表など。しかし、テーブルの数が多くなると、編集や削除が大変です。そこで、VBAを使ってテーブル操作を自動化すると、以下のようなメリットがあります。

ここがポイント！

手作業での削除ミスを防げる
大量のテーブルを一度に処理できる
作業時間の短縮が可能

具体的なVBAコードの紹介

では、実際にVBAを使ってWord内のテーブルを削除する方法をご紹介します。初心者の方でも理解しやすいように、ステップバイステップで説明しますね。

1. 開発タブを表示する

まず、VBAを使うためには、Wordの「開発」タブを表示する必要があります。

Wordを開き、上部のメニューから「ファイル」をクリックします。
「オプション」を選択し、開いたウィンドウで「リボンのユーザー設定」をクリックします。
右側の「リボンのユーザー設定」の一覧から「開発」にチェックを入れ、「OK」をクリックします。

これで、リボンに「開発」タブが表示されます。

2. マクロを作成する

次に、実際にテーブルを削除するマクロを作成します。

「開発」タブをクリックし、「マクロの記録」を選択します。
マクロ名を入力し、「OK」をクリックします。
「開発」タブ内の「マクロ」をクリックし、先ほど作成したマクロ名を選択して「編集」をクリックします。

3. VBAコードを入力する

VBAエディターが開いたら、以下のコードを入力します。

vba

Sub DeleteAllTables()

    Dim tbl As Table

    For Each tbl In ActiveDocument.Tables

        tbl.Delete

    Next tbl

End Sub

このコードは、ドキュメント内のすべてのテーブルを削除するものです。コードを入力したら、上書き保存してエディターを閉じます。

4. マクロを実行する

最後に、作成したマクロを実行してみましょう。

「開発」タブ内の「マクロ」をクリックします。
先ほど作成したマクロ名を選択し、「実行」をクリックします。

これで、ドキュメント内のすべてのテーブルが削除されます。

特定の条件に合致するテーブルや行の削除

すべてのテーブルを削除するのではなく、特定の条件に合致するテーブルや行だけを削除したい場合もあります。例えば、「特定の文字列を含む行を削除したい」といったケースです。

特定の文字列を含む行を削除するコード例

以下のコードは、テーブル内のセルに「削除」という文字が含まれる行を削除するものです。

vba

Sub DeleteRowsWithSpecificText()

    Dim tbl As Table

    Dim row As Row

    Dim cell As Cell

    For Each tbl In ActiveDocument.Tables

        For Each row In tbl.Rows

            For Each cell In row.Cells

                If InStr(cell.Range.Text, "削除") > 0 Then

                    row.Delete

                    Exit For

                End If

            Next cell

        Next row

    Next tbl

End Sub