Macro to remove Information Mapping (2003)

Topic

New Reply

I have inherited a library full of documents that have been set up using Information Mapping.

I am considering writing a macro to remove all the tables that are just used for layout. I need to leave any tables that have real tabular material in them.
I’d love to hear from anyone that has already written such a macro.
The real tables have borders but the layout tables don’t.

If someone can can point me in the right direction, I would be appreciative.

Thanks in advance,
Judith

Reply | Quote

Replies

You should be able to do something with a macro like this:

Sub delTablesWithoutBorders()
Dim tbl As Table

For Each tbl In ActiveDocument.Tables
If Not tbl.Borders.Enable Then
tbl.ConvertToText Separator:=" "
End If
Next tbl

End Sub

You may need to change the separator, or do a slightly more complex check for borders, depending on your document.

StuartR

Reply | Quote

Thanks Stuart.

I added the parameter to leave nested tables (which are usually real tables) and changed the separator to paragraph mark since the first column of each layout table is usually a Heading 5 that I want to keep.

I cleaned up a 300 page document in seconds. Now I can change a few styles and remove the blank lines and print the finished document!

Thanks again,
Judith

Sub delTablesWithoutBorders()
‘macro to remove borderless tables used for layout in Information Mapping
Dim tbl As Table

For Each tbl In ActiveDocument.Tables
If Not tbl.Borders.Enable Then
tbl.ConvertToText Separator:=wdSeparateByParagraphs, NestedTables:=False
End If
Next tbl

End Sub

Reply | Quote

Thanks for sharing the results of your efforts.

StuartR

Reply | Quote