InsertColumns Method Example

This example inserts new columns to the left of the column that contains the selection. The number of columns inserted is equal to the number of columns selected.

If Selection.Information(wdWithInTable) = True Then
    With Selection
        .InsertColumns
        .Shading.Texture = wdTexture10Percent
    End With
End If