I am having a similar problem!
The macro TablesToText() almost does the trick but....

The result using a 3x2 table is similar to this:
(Cell1,Cell2,Cell3, etc are just prior to the end-of-cell marker in each
cell)

This is line one

Line two

Line three

Cell1 This is line one

Line two

Line three

Cell2 This is line one

Line two

Line three

Cell3

This is line one

Line two

Line three

Cell4 This is line one

Line two

Line three

Cell5 This is line one

Line two

Line three

Cell6



Note: Cell 1 and Cell2 are separated by a Tab but Cell 3 is NOT. Cell 3
runs together with Cell4.



What modification is needed to the macro to get a Tab to separate the last
cell in a row from the first cell in the next row?


Sub TablesToText()
While ActiveDocument.Tables.Count
ActiveDocument.Tables(1).ConvertToText _
Separator:=wdSeparateByTabs, _
NestedTables:=True
Wend
End Sub

Thanks
Doug