ワードテーブルの空行を削除するVBAマクロ

Question

"$"が存在する空行を削除する単語マクロに苦労しています。下のコードは選択されたテーブルのみで動作しますが、ドキュメント全体を通してコードループを実行し、すべてのページから空行を削除するにはどうすればよいですか。

Option Explicit 

Sub TEST() 
Dim i  As Long 
    With Selection.Tables(1) 
     For i = .Rows.Count To 1 Step -1 
      If Len(.Cell(i, 2).Range.Text) = 3 And Left(.Cell(i, 2).Range.Text, 1) = "$" Then 
       .Rows(i).Delete 
      End If 
     Next i 
    End With 
End Sub 

Answer 1

それが設けられていないためOPが有するようにこれは、同じデータセット上でテストされていません。

Option Explicit 

Sub TEST() 


Dim tbl As Table 
Dim mDoc As Document 
Dim oRow As Row 

Set mDoc = ActiveDocument 


    For Each tbl in mDoc.Tables 

     For Each oRow In tbl.Rows 

       If Len(oRow.Cells(2).Range.Text) = 3 And _ 
        Left(oRow.Cells(2).Range.Text, 1) = "$" Then 

         oRow.Delete 

       End If 
       Next oRow 
    Next tbl 

End Sub