Microsoft Office Forums - View Single Post - Trouble using coding for Macro to join tables from directory merger

gmayor · 07-24-2021, 08:19 PM

To fix your table you need to delete the unwanted rows e.g. as below however this looks like a many to one mail merge.See Merge Many To One

Code:

Sub Macro1()
Dim i As Long
Dim oTable As Table
Dim oRng As Range
    Set oTable = ActiveDocument.Tables(1)
    For i = oTable.Rows.Count To 3 Step -1
        Set oRng = oTable.Rows(i).Cells(1).Range
        oRng.End = oRng.End - 1
        If oRng.Text = "Assessment/Category" Or oRng.Text = "" Then
            oTable.Rows(i).Delete
        End If
    Next i
    Set oTable = Nothing
    Set oRng = Nothing
End Sub