[mso] Re: MS Word: Removing tables from documents!

And there's always VBA like this UNTESTED stuff that you should only run =
on a copy of the document.

First, to convert all tables to plain text:

Sub ConvertTables()

Dim oTab As Table

For Each oTab In ActiveDocument.Tables
        oTab.ConvertToText wdSeparateByTabs
Next oTab

MsgBox "Done"

End Sub

(Code by Christopher Green)


Second, to delete the tables altogether:

Sub DeleteTables()

Dim oTab As Table

For Each oTab In ActiveDocument.Tables
    oTab.Delete
Next oTab

MsgBox "Done"

End Sub

Bear
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the dropdown 
menu at the top.  This will allow you to unsubscribe your email address or 
change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

If you are using Outlook and you see a lot of unnecessary code in your email 
messages, read these instructions that explain why and how to fix it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************

Other related posts: