Word VisualBasic Script

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