Tabellenhöhe einer in Word eingefügten Tabelle

[mkinzler]

Du übertägst ja Strings vom Grid nach Word. Angenommen ein Text ist 145 Zeichen lang und Word stellt 80 zeichen dar, bevor es umbricht dann ergibt 145 Div 80 = 1 dazu zählst du dann 1 (hab ich oben übersehen)

[aaron]

Danke

Wo muss ich die Abfrage (wenn ich die mal zusammen habe) einbauen?

Gruß
Aaron

[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

[aaron]

Hallo,
ich nochmal.
Ich habe das gerade mit Word2000 getestet, dort wird alles in der richtigen Höhe angezeigt.
Nur in Word2007 wird die Zeilenhöhe nicht richtig angezeigt.
Wenn ich nun aber in Word2007 auf den Reiter "Entwurf" klicke und dort auf irgendein Tabellengitternetz dann stimmen die Höhehn auch wieder.
Seltsam.
Aaron