The following macro should work:
Sub FindAndReplaceTableStyles()
Dim t As Table
For Each t In ActiveDocument.Tables
If t.Style.NameLocal = "Light Shading - Accent 3" Then
t.Style = "Medium Shading 1"
End If
Next t
End Sub
The example applies the "Medium Shading 1" style to all tables in the
*document* that are currently using the "Light Shading - Accent 3" style. Of
course, you will have to change the style names to the ones that are
relevant for you.
If you want to replace the table styles in the *selection*, use
Selection.Tables instead of ActiveDocument.Tables in the code.
See also
http://www.gmayor.com/installing_macro.htm.
--
Stefan Blom
Microsoft Word MVP
"David" wrote in message
...
Is it possible to find and replace table styles within Word 2007? I
have a number of small tables in a section of my document that I want
to convert from using a built in table style to a custom style that I
have subsequently defined. Going into the standard Find/Replace
dialog gives options to search on paragraph styles, but not for table
styles. Is this possible, outside of opening up the XML and tweaking
things outside of Word?
Thanks for the help!
David