Removing tables while preserving content

[John Doue]

I am sometimes dealing with documents which includes several tables. I
know how to remove them one by one while preserving their content, but
would like to automate the process. How do I do that please?

Thanks

 

[Graham Mayor]

How about:

Dim oTable As Table
For Each oTable In ActiveDocument.Tables
oTable.ConvertToText
Next oTable


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[John Doue]

Dim oTable As Table
For Each oTable In ActiveDocument.Tables
oTable.ConvertToText
Next oTable

Thanks a million! Things look so simple, deceptively simple, I should be
ashamed!

Thanks again