Selection.InsertColumns (Word)

Fügt links neben der Spalte mit der Markierung Spalten ein.

Die Anzahl der eingefügten Spalten entspricht der Anzahl der markierten Spalten. Wenn die Markierung nicht in einer Tabelle erfolgt, tritt ein Fehler auf.

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