WordApp ActiveDocument Width

[GoTo0815]

Hallo,

ich arbeite gerade an einer Anwendung die eine Tabelle in eine Word Dokument überträgt. (OLE Automation)
Das funktioniert auch alles prächtig. Nur eine Sache konnte ich bisher nicht finden.

Wie kann ich feststellen, wie die Breite (Width) des aktiven Dokuments (WordApp.ActiveDocument) ist?

Beispiel: Die Tabelle hat z.B. 6 Spalten (Cols).
Nun setze ich die letzten 5 Spalten auf eine Breite von 20.

Delphi-Quellcode:

  iRows := 10;
  iCols := 6;
  WordTable := WordApp.ActiveDocument.Tables.Add(WordApp.Selection.Range, iRows, iCols);
  {...}
  for i := 2 to 6 do
  begin                     
    WordTable.Columns.Item(i).Width := 20;
  end;

Die erste Spalte würde ich nun gern auf die maximale (Rest)Größe setzen. Also auf Restgröße = Gesamtbreite - 5 * 20.


Gruß

Hendrik