asked on 7/21/2008

How to find and replace all tables in a document with a text message "insert table here"?

To simplify editing, I would like to have a macro to search for all tables in a Word document and replace each table with three words of text e.g.,'insert table here.' This is easy to do with graphics without a macro. I found a macro at Microsoft- http://support.microsoft.com/kb/212692 - that is supposed to find all tables in a document. It does that but once each is found it doesn't allow you to do anything like insert text. (I get an 'hourglass' when I try to delete the table and insert text ...In fact, for me the macro's 'no' (exit) button doesn't work either.)

I'd appreciate it if I could get a modification of this macro or some other work around that enables me to search for all tables in a Word document and replace each table with three words of text e.g.,'insert table here.' Thanks. Macro text is below and attached.

Sub FindTables()
Dim iResponse As Integer
Dim tTable As Table
'If any tables exist, loop through each table in collection.
For Each tTable In ActiveDocument.Tables
tTable.Select
iResponse = MsgBox("Table found. Find next?", 68)
If response = vbNo Then Exit For 'User chose to leave search.
Next
MsgBox prompt:="Search Complete.", buttons:=vbInformation
End Sub

Visual Basic Classic Microsoft Word

Last Comment

jologo1

7/22/2008

GrahamSkan

7/21/2008

This code will delete the first table and then ask if the next is to be deleted.

Sub FindTables()
    Dim iResponse As Integer
    Dim tTable As Table
    Dim rng As Range
    'If any tables exist, loop through each table in collection.
    For Each tTable In ActiveDocument.Tables
        Set rng = tTable.Range
        tTable.Delete
        rng.Text = "Insert table here"
        iResponse = MsgBox("Table found. Find next?", 68)
        If iResponse = vbNo Then
            Exit For 'User chose to leave search.
        End If
    Next
    MsgBox prompt:="Search Complete.", Buttons:=vbInformation
End Sub

Open in new window

jologo1

7/22/2008

ASKER

Thanks Graham.

It's halfway there and better in a way than the MS macro since the 'no' (exit) button actually does work. But It needs to insert a text message after deleting the found table for example 'insert table here.'

Preferably, it would offer the option 1) to find and replace every table in the document with the designated text message all at once, in addition2) to offering the choice to replace each table as found with the text message. Even better, after each completed action it would ask whether you wanted to find the next table and then provide a second choice with three options a). replace the table with the designated text message b). edit the table (highlight it allowing the user to edit the table or type in a customized message before manually deleting it), or c) exit.

However, the very first option 1) would meet my immediate needs however.

Regards,
J.

jologo1

7/22/2008

ASKER

I meant to attach these in my original post.
WD2000--Macro-to-Find-Tables-in-.pdf
button.jpg

GrahamSkan

7/22/2008

The code actually does insert the text message as you asked in the question. Message boxes have limited options, but I'll see if the three-way choice can be implemented acceptably.

ASKER CERTIFIED SOLUTION

GrahamSkan

7/22/2008

THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

jologo1

7/22/2008

ASKER

Brilliant! This works a charm. Also, you were right. Your first macro did replace the table with the text (I should have checked more carefully.) So your second macro is a bonus then - I'm very grateful. Both should be really useful in preparing my documents. Many thanks!

How to find and replace all tables in a document with a text message &quot;insert table here&quot;?

How to find and replace all tables in a document with a text message "insert table here"?