Selection.InsertColumns (Word)

Insere colunas à esquerda da coluna que contém a seleção.

O número de colunas inseridas é igual ao número de colunas selecionadas. Você também pode inserir colunas usando o método Add do objeto Columns . Se a seleção não estiver em uma tabela, ocorrerá um erro.

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