Selection.InsertColumns (Word)

Inserta columnas nuevas a la izquierda de la columna que contiene la selección.

El número de columnas insertado es igual al número de columnas seleccionado. Si la selección no está en una tabla, se produce un error.

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