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

[mkinzler]

Dies ist keine Eigenschaft des Dokumentes, sondern der Seite

[omata]

Vielleicht hilft dir ja...
WordApplication.MillimetersToPoints(...) ...weiter, A4 = 210 mm - Rechter Einzug - Linker Einzug - Epsilon = Maximale Breite für die Tabelle

Zitat von mkinzler:

Dies ist keine Eigenschaft des Dokumentes, sondern der Seite

Guter Hinweis, siehe...
WordDocument.PageSetup.PageWidth

[p80286]

Hallo zusammen,

man muß aber auch noch den Drucker beachten auf dem ausgedruckt werden soll. Leider hält Word sich da sehr bedeckt. Und ein "PDF-Drucker" verhält sich anders als ein lokal angeschlossener, und dieser wiederum anders als ein Netzdrucker. Auf 10 Seiten Text kann das manchmal eine halbe Seite mehr oder weniger ausmachen.

Wenn man millimetergenau das Papierblatt ausnutzen will, dann ist man ziemlich verlassen.
Ich würde empfehlen Breite und Höhe um 10mm zu verringern, damit bin ich bisher ganz gut gefahren.

Gruß
K-H

[mkinzler]

Deshalb passt Word das Dokument auch bei Änderung des Druckers an. Der obige Code greift also auf die aktuellen Werte zu.

[p80286]

Wenn Du aber das Dokument erstellst, weißt Du dann mit Sicherheit welcher Drucker derjenige ist der als Drucker ausgewählt wird?
So gesehen ist das eingestellte Papierformat nur ein "Näherungswert", aber Hendrik möchte ja wissen wieviel Platz er "genau" hat. Und wenn der Rechner auf dem das Dokument erstellt wird, ein anderer ist als der auf dem es weiter ver/bearbeitet wird, könnte er ein Problem haben.

Gruß
K-H

[mkinzler]

das Programm scheint das Dokument allerdings dynamisch zu erzeugen

[GoTo0815]

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