Sub ruler() ActiveDocument.Tables(1).Columns(2).SetWidth ColumnWidth:=50, _ RulerStyle:=wdAdjustProportionalEnd Sub