Tabellenhöhe einer in Word eingefügten Tabelle

[aaron]

Hallo,
ich habs nun so gemacht, was aber leider nicht funktioniert:

Delphi-Quellcode:

  //WordTable.Rows.SetHeight(15,2);;
  WordTable.Columns.Item(1).SetWidth(40, 0);
  WordTable.Columns.Item(2).SetWidth(420, 0);

  begin
    ProgressBar1.Max := iRows;
    for iGridRows := 1 to iRows do
    begin
      ProgressBar1.Position := 6 + iGridRows;
      for jGridCols := 1 to iCols do
      begin
        s1 := StringGrid2.Cells[1, igridRows - 1];
       // showmessage(s1);
        if Length(s1) < 81 then begin
          WordTable.Rows.SetHeight(15, 2);
         end else
       if (Length(s1) > 82) and (Length(s1) < 164) then begin
        WordTable.Rows.SetHeight(30, 2);
        end;
     WordTable.Cell(iGridRows, jGridCols).Range.Text := StringGrid2.Cells[jGridCols - 1, igridRows - 1]; //+ sLineBreak+ sLineBreak
          end;
  end;
  ProgressBar1.Position := 0;

Sieht jemand meinen Fehler?

[Edit]
ich habe auch über

Delphi-Quellcode:

  WordTable.Columns.Item(1).SetWidth(40, 0);
  WordTable.Columns.Item(2).SetWidth(420, 0);

das als Schleife ausprobiert dann gibt es auch nur Fehler.

Gruß
Aaron