[lloydkirk]

I have a document with in excess of 100 tables. I would like to do the following: globally change the margins of all of the current tables in the document at one fell swoop, and set the default for all future tables to have the same orientation (center) as well as margins. Any ideas?
Thanks in advance.
Jeff

[Stefan Blom[_3_]]

To change the defaults, modify the table style you are using.

To modify existing tables, you will need a macro. Something like this should
work:

Sub ChangeCellMarginsAllTables()
Dim t As Table
Dim r As Cell
For Each t In ActiveDocument.Tables
For Each r In t.Range.Cells
r.TopPadding = XX
r.LeftPadding = XX
r.RightPadding = XX
r.BottomPadding = XX
Next r
Next t
End Sub

"XX" represents values in points. You can use InchesToPoints(value) to have
VBA do the conversion for you.

For assistance with macros, see http://www.gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP




"lloydkirk" wrote in message
...

I have a document with in excess of 100 tables. I would like to do the
following: globally change the margins of all of the current tables in
the document at one fell swoop, and set the default for all future
tables to have the same orientation (center) as well as margins. Any
ideas?
Thanks in advance.
Jeff




--
lloydkirk