Word VBAでテーブルの行を削除する方法：初心者向け完全ガイド

Wordの文書でテーブルを使っていると、不要な行を削除したくなる場面が出てきますよね。特に、特定の文字列が含まれている行や、空白の行を一括で削除したいときに役立つのが、VBA（Visual Basic for Applications）を使った方法です。今回は、初心者の方でもわかりやすいように、VBAを使ってWordのテーブルから行を削除する方法を、実際のコード例とともにご紹介します。

VBAでWordのテーブルから行を削除する基本のコード
特定の文字列を含む行を削除する方法
空白の行を削除する方法
複数のテーブルに対して処理を行う方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

VBAでWordのテーブルから行を削除する基本のコード

Wordのイメージ

まずは、WordのVBAエディタを開いて、以下のコードを入力してみましょう。

Sub DeleteRow()

    Dim tbl As Table

    Set tbl = ActiveDocument.Tables(1) ' 1番目のテーブルを指定

' 1行目を削除 tbl.Rows(1).Delete End Sub

このコードは、現在の文書の1番目のテーブルから、1行目を削除するものです。テーブルが複数ある場合は、`Tables(1)`の数字を変更することで、他のテーブルを指定できます。

特定の文字列を含む行を削除する方法

次に、テーブル内で「削除」という文字列を含む行を削除する方法をご紹介します。

Sub DeleteRowsContainingDeleted()

    Dim tbl As Table

    Dim i As Integer

    Set tbl = ActiveDocument.Tables(1)

' 最後の行から順にチェックして削除 For i = tbl.Rows.Count To 1 Step -1 If InStr(tbl.Rows(i).Range.Text, "削除") > 0 Then tbl.Rows(i).Delete End If Next i End Sub

このコードでは、テーブルの最後の行から順にチェックして、「削除」という文字列が含まれている行を削除します。行を逆順で処理することで、削除によるインデックスのずれを防いでいます。

空白の行を削除する方法

テーブル内で内容が空の行を削除したい場合、以下のコードを使います。

Sub DeleteEmptyRows()

    Dim tbl As Table

    Dim i As Integer

    Set tbl = ActiveDocument.Tables(1)

' 最後の行から順にチェックして削除 For i = tbl.Rows.Count To 1 Step -1 If Trim(tbl.Rows(i).Range.Text) = "" Then tbl.Rows(i).Delete End If Next i End Sub

このコードでは、各行の内容が空白かどうかをチェックし、空白の行を削除します。`Trim`関数を使って、前後の空白を除去してから判定しています。

複数のテーブルに対して処理を行う方法

文書内に複数のテーブルがある場合、すべてのテーブルに対して処理を行いたいことがあります。以下のコードは、すべてのテーブルに対して、空白の行を削除するものです。

Sub DeleteEmptyRowsInAllTables()

    Dim tbl As Table

    Dim i As Integer

    Dim j As Integer

' すべてのテーブルをループ For Each tbl In ActiveDocument.Tables ' 最後の行から順にチェックして削除 For i = tbl.Rows.Count To 1 Step -1 If Trim(tbl.Rows(i).Range.Text) = "" Then tbl.Rows(i).Delete End If Next i Next tbl End Sub

このコードでは、文書内のすべてのテーブルを対象に、空白の行を削除しています。`For Each`構文を使って、各テーブルを順番に処理しています。