[Doug Robbins - Word MVP]

Use the following code in a macro

Dim i As Long
With ActiveDocument
For i = .Tables.Count To 1 Step -1
.Tables(i).ConvertToText
Next i
End With

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Hal" wrote in message
...
If one has a document that is composed of multiple tables is there an easy
way to select the whole document and convert all tables to text at once or
do
you have to convert each table individuallY? Thanks.