Columns Property Example

This example displays the number of columns in the first table in the active document.

If ActiveDocument.Tables.Count >= 1 Then
    MsgBox ActiveDocument.Tables(1).Columns.Count
End If

This example sets the width of the current column to 1 inch.

If Selection.Information(wdWithInTable) = True Then
    Selection.Columns.SetWidth ColumnWidth:=InchesToPoints(1), _
        RulerStyle:=wdAdjustProportional
End If