Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Tabellenhöhe einer in Word eingefügten Tabelle (https://www.delphipraxis.net/110773-tabellenhoehe-einer-word-eingefuegten-tabelle.html)

mkinzler 25. Mär 2008 13:32

Re: Tabellenhöhe einer in Word eingefügten Tabelle
 
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 25. Mär 2008 13:37

Re: Tabellenhöhe einer in Word eingefügten Tabelle
 
Danke

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

Gruß
Aaron

aaron 25. Mär 2008 15:51

Re: Tabellenhöhe einer in Word eingefügten Tabelle
 
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 25. Mär 2008 17:25

Re: Tabellenhöhe einer in Word eingefügten Tabelle
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:18 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz