Microsoft Office Forums - View Single Post - [Solved] Multiple tables in Word, converting working Excel macro

ez1138 · 04-13-2021, 09:34 PM

Thanks!

Using the second link example, where/how would I specify a specific table name versus all tables? Using an example of Table_NotImplemented.

Thanks again!

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 2/12/2018
Dim oTbl As Table
Dim lngIndex As Long
  For Each oTbl In ActiveDocument.Tables
    For lngIndex = oTbl.Rows.Count To 1 Step -1
       If Left(oTbl.Cell(lngIndex, 1).Range.Text, Len(oTbl.Cell(lngIndex, 1).Range.Text) - 2) = "$" Then
         oTbl.Rows(lngIndex).Delete
       End If
    Next
  Next
lbl_Exit:
  Exit Sub
End Sub