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
|