Can you copy Table Properties from one table to several others?

P

Penny

I have several tables that need the same formatting. Can I format the first
then copy and paste just the formatting to all the rest?
 
G

Greg Maxey

If create and apply a table style to first table you can apply the same
style to other tables manually or use a macro:

Sub ScratchMaco()
Dim oTbl As Word.Table
For Each oTbl In ActiveDocument.Tables
oTbl.Style = ActiveDocument.Tables(1).Style
Next
End Sub
 
K

Klaus Linke

Penny said:
I have several tables that need the same formatting.
Can I format the first then copy and paste just the
formatting to all the rest?
Click to expand...

Is the formatting you want to copy the borders or the shading? And is it the
same for the whole table?

If so, go into the table with the formatting you want to copy, and open the
"Borders and Shading" dialog.
You don't need to do anything in the dialog, except maybe make sure it says
"Apply to: Table" and not "Apply to: Cell" in the lower right.

Close the dialog, go into the table you want to change, and use
"EditRedoOrRepeat": Hit the F4 key.

That'll copy over any uniform borders and shading. You can do the same for a
cell or groups of cells (... making sure the dialog says "Apply to: Cell"),
if the borders and shading aren't uniform.

Klaus
 
Top