View Single Post
  #2   Report Post  
Posted to microsoft.public.word.tables
Jay Freedman Jay Freedman is offline
external usenet poster
 
Posts: 9,854
Default Huge Document - I have to lose the tables and replace with tabs

On Sun, 11 Feb 2007 11:51:00 -0800, efandango
wrote:

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 FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.