Columns.Add (Word)

Gibt ein Column -Objekt zurück, das eine Spalte darstellt, die einer Tabelle hinzugefügt wurde.

Add (BeforeColumn)

BeforeColumn: Ein Column-Objekt, das die Spalte darstellt, die unmittelbar rechts neben der neuen Spalte angezeigt wird.

Sub AddATable() 
 Dim myTable As Table 
 Dim newCol As Column 
 
 Set myTable = ActiveDocument.Tables.Add(Selection.Range, 2, 2) 
 Set newCol = myTable.Columns.Add(BeforeColumn:=myTable.Columns(1)) 
 newCol.SetWidth ColumnWidth:=InchesToPoints(1.5), _ 
 RulerStyle:=wdAdjustNone 
End Sub