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?

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top