Tabelle formatieren

[little_budda]

Klasse Idee mit dem Makro.

Klappt auch schon einiges.
Ich habe nun versucht folgenden VBA CODE

Delphi-Quellcode:

  Selection.Tables(1).Columns(1).PreferredWidthType = wdPreferredWidthPoints
  Selection.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(4)

in Delphi umzusetzten

Delphi-Quellcode:

...
  // Tabelle einfügen
  vWordTable := vWordInstanz.Selection.Tables.Add(vAktiveDocument.Range, StringGridDaten.RowCount, (StringGridDaten.ColCount - 1));
...
  // Spalte 1 auf eine Breite von 4 cm einrichten
  vWordTable.Columns(1).PreferredWidthType := 3;  // wdPreferredWidthPoints = 3
  vWordTable.Columns(1).PreferredWidth := 113;    // 4.0 cm
...

Zur Lauzeit bringt mir die IDE immer einen Fehler mit der Meldung "Colums ist keine Methode".
Denke er stört sich an dem Spaltenindex in der Klammern,
aber ich habe keine Ahnung wie ich den Index sonst setzen soll.