G'Day David,

The following Macro will go through a document and
convert all tables to text using tab separators.

Sub TablesToText()
Dim intX As Integer
For intX = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(intX).Select
Selection.Rows.ConvertToText _
Separator:=wdSeparateByTabs, _
NestedTables:=True
Next
End Sub

Cut and Paste as is.
--
Regards,
Pat Garard
Melbourne, Australia
_______________________

"David Gareau via OfficeKB.com" wrote in message
...
I have some files that are filled with tables and cause me to have to print
2-3x as much, I want to convert the tables to text, but there's 100+
sometimes and I don't want to do each individually, I have read here that
the ONLY option is a macro, is this true? If so, any links to such a
macro, or ideas on how to make it? Thanks
david

--
Message posted via http://www.officekb.com