Word VisualBasic Script

Sub width()
    ActiveDocument.Tables(11).Columns(44).Width = 100
End Sub