Is it possible to adjust the column widths in all tables in a document to some standard, (e.g. Column 1 = 6 cm, Column 2 = 10 cm) using VBA or a macro?



Can default column width be set in a table style? (I looked but cannot find a way)

Yes. However, there is a lot of things to consider when changing column widths. What do you want to happen to the overall table and the other associated columns. Here I set the table to the full width of the document (margin to margin) and adjust the other associated column widths proportionally as column 1 width is set to 36 points and column 2 to 72 points.


Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
With oTbl
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 100
.Columns(1).SetWidth 36, wdAdjustProportional
.Columns(2).SetWidth 72, wdAdjustProportional
End With
Next oTbl
lbl_Exit:
Exit Sub
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Thank you, that helps me a lot!