Convert multiple tables to text?

Question

I have numerous Words documents in which the images were put inside single-cell tables. Is there an automated way to convert all these tables to text?

Thanks,

pjs

Answer 1

You could use a macro containing the following code to convert all of the tables in a single document

Dim i As Long

With ActiveDocument

    For i = .Tables.Count To 1 Step -1

        .Tables(i).ConvertToText

    Next i

End With

To convert all of the tables in all of the documents in a folder, you could modify the code in the

article "Find & ReplaceAll on a batch of documents in the same folder” at:

http://www.word.mvps.org/FAQs/MacrosVBA/BatchFR.htm

by substituting the above code for the replace routine in the code in that article.

Answer 2

Sub ScratchMacro()

'A basic Word macro coded by Greg Maxey

Dim oTbl As Word.Table

For Each oTbl In ActiveDocument.Tables

  If oTbl.Range.Cells.Count = 1 Then

    oTbl.ConvertToText

  End If

Next oTbl

End Sub

See: http://gregmaxey.mvps.org/word_tip_pages/installing_employing_macros.html for instructions to employ the VBA code provided above.

Answer 3

This is one of the most helpful things I have ever found on the web.  A thousand thanks!!