View Single Post
 
Old 04-14-2021, 04:33 AM
ez1138 ez1138 is offline Windows 10 Office 2019
Novice
 
Join Date: Apr 2021
Posts: 3
ez1138 is on a distinguished road
Default

Makes sense. I did add the title in the 'Alt Text' area for each table. Using the code from your original post, second example, how/where would I enter the table name (alt text)? Thanks again!

Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, Microsoft Word Help, Tips and Tutorials @ The Anchorage, 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

Last edited by macropod; 04-14-2021 at 04:34 AM. Reason: Added code tags
Reply With Quote