Huge Document - I have to lose the tables and replace with tabs

[efandango]

I have a huge 3000 page word doc that has 100's of tables in it. Does anyone
know how i can remove/replace the tables with tabs?. Is there a way of
searching for tables, I cannot find anyting in the search box, or the
'special code' that denotes a table.

 

[Jay Freedman]

I have a huge 3000 page word doc that has 100's of tables in it. Does anyone
know how i can remove/replace the tables with tabs?. Is there a way of
searching for tables, I cannot find anyting in the search box, or the
'special code' that denotes a table.

Use the following macro (see
http://www.gmayor.com/installing_macro.htm if needed):

Sub TablesToTabbedText()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.ConvertToText Separator:=wdSeparateByTabs
Next
End Sub

It does the equivalent of the menu command Table > Convert > Table to
Text for every table in the document.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

 

[efandango]

Thanks Jay (& Mac)

it worked a treat, liberation from digital slavery...