Microsoft Office Forums - View Single Post - [Solved] Merging multiple items to a table, Formatting

orion23 · 07-19-2018, 08:06 PM

So I need to run this Macro ?

Code:

Sub TableJoiner()
Application.ScreenUpdating = False
Dim oPara As Paragraph
For Each oPara In ActiveDocument.Paragraphs
  With oPara.Range
    If .Information(wdWithInTable) = True Then
      With .Next
        If .Information(wdWithInTable) = False Then
          If .Text = vbCr Then .Delete
        End If
      End With
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub

I'll give this a shot tomorrow (big time difference with us...)
My fear is that by removing the rows after the merge, all records will shift up and won't remain as individual records

If you think of something else that I might be missing, kindly point it out

Thanks for your help!