VBA宏刪除Word表中的空行

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