Convert Tables to text

D

dk

How Can we convert multiple pages of tables to text without having to convert
each table separatly foe each page?
 
S

Stefan Blom

The following macro converts all tables in the active document to text
(separated by tabs):

Sub ConvertAllTables()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Rows.ConvertToText Separator:=wdSeparateByTabs, _
NestedTables:=True

Next t
End Sub

If you need assistance, see http://www.gmayor.com/installing_macro.htm.
 
Top