Global Changes to Multiple Tables in the Same Document

[Guest]

In a long document (400+ pages) there are about 100 seperate tables. We'd
like to change the column width in all the tables without having to work on
each table individually.

Is this possible?

 

[Greg Maxey]

Yes.

To change each column width to 1 inch:

Sub ScratchMacro()
Dim oTbl As Word.Table
Dim oCol As Word.Column
For Each oTbl In ActiveDocument.Range.Tables
For Each oCol In oTbl.Columns
oCol.Width = InchesToPoints(1)
Next oCol
Next oTbl
End Sub