View Single Post
  #2  
Old February 27th, 2010, 07:36 PM posted to microsoft.public.word.tables
Stefan Blom[_3_]
external usenet poster
 
Posts: 4,556
Default How to change style of all tables in a document at once?

You could use a macro such as the following:

Sub ApplyTableStyle()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Style = "Light Shading - Accent 3" 'Specify table style name here
Next t
End Sub

--
Stefan Blom
Microsoft Word MVP



"Doctor Document" Doctor wrote in
message ...
I'm copying tables from many documents and sources outside word and
pasting
them into a single word document. When I want to apply a uniform
formatting
throughout my new document I find myself manually selecting each table
using
the 'Goto' button and applying the table styles to each table.

There are over 300 tables in this document. What's the easier way out? I
have to make twelve other documents similar to this one. Is there a way to
define a pasting formatting for tables? Anyone please help.