Hallo again,
habe das nun dank dem Hinweis von omata so umgesetzt und das reicht zu diesem Zeitpunkt für meine Zwecke:
Delphi-Quellcode:
WordTable.Columns.Item(1).Width := WordApp.ActiveDocument.PageSetup.PageWidth - (icols-1)*16
- WordApp.ActiveDocument.PageSetup.LeftMargin - WordApp.ActiveDocument.PageSetup.RightMargin;
for i := 2 to iCols do
begin
WordTable.Cell(1,i).Range.Orientation := wdTextOrientationUpward; // zum Vertikalen anzeigen der Schrift
WordTable.Columns.Item(i).Width := 16;
end;
Grüße
Hendrik