Merging multiple items to a table, Formatting

orion23 · #1 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!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Pivot Table: Show Data For Multiple Items	jhato160	Excel	14	08-01-2016 11:24 AM
VBA Pivot Table CubeField Enable multiple items	Wries	Excel Programming	0	03-13-2014 09:56 AM
After merging a reviewer's changes, formatting is lost	cassidyjames	Word	0	03-27-2012 01:48 PM
Copy table cell formatting across multiple cells / tables	pakistanray	Word Tables	2	10-31-2011 08:07 AM
Merging multiple .txt's	Bartestokles	Word	5	12-29-2010 01:42 PM