Microsoft Office Forums - View Single Post - How to merge empty cells before "ok" with a for loop

gmaxey · 09-08-2019, 09:33 AM

If the table is a single column table as your example indicates then something like this:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oCell As Cell
  With ActiveDocument.Tables(1)
    Set oCell = .Cell(1, 1)
    Do
      If oCell.RowIndex = .Rows.Count Then Exit Do
      Do While Len(oCell.Range.Text) = 2 And Len(oCell.Next.Range.Text) = 2
        If oCell.RowIndex = .Rows.Count Then Exit Do
        oCell.Merge oCell.Next
      Loop
      If oCell.RowIndex = .Rows.Count Then Exit Do
      Set oCell = oCell.Next
    Loop
  End With
lbl_Exit:
  Exit Sub
End Sub