Selection.InsertColumns (Word)

Insère des colonnes à gauche de la colonne qui contient la sélection.

Le nombre de colonnes insérées est égal au nombre de colonnes sélectionnées. Si la sélection ne se trouve pas dans un tableau, une erreur se produit.

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