Aktuelle Seitennummer in Word ermitteln

[Stefan Schreier]

Hallo,<br><br>
ich habe eine Anwedung in Delphi 5 EPE erstellt, die über Textbausteine<br>
Word-Dokumente (97 und 2000) erzeugt (Auomation). An verschiedenen Stellen im<br> Dokument möchte ich die aktuelle Seitennummer ermiteln, damit ich<br> verschiedene Formatierungen (z.B. Grussformel nicht alleine auf<br>
einer Seite) durchführen kann.<br>
Weiss jemand, wie ich im Dokument die aktuelle Seitennummer ermitteln<br> kann (am besten an einer Textmarke)?<br>
Im Buch COM/DCOM/COM+ habe ich darüber nichts gefunden, hier im Forum<br> auch nicht, im MSDN nur eine Lösung über Formularfelder.<br><br>
Ich bin für jede Anregung dankbar.<br><br>
MfG<br><br>
Stefan Schreier

[Torsten Grundke]

Hallo Stefan,

hier der notwendige Code (Beispiel für die Delphi Serverkomponenten):

<pre><b>
var
aOLEVariant: OLEVariant;
Seite: integer;
begin
aOLEVariant := 'test';
Seite := wordapplication1.ActiveDocument.Bookmarks.Item(aOL EVariant).Range.Information[wdActiveEndAdjustedPageNumber];
end;
</pre></b>

Für weitere Info's schau mal in die VBA-Hilfe rein.

Tschüß

Torste

[Stefan Schreier]

Hallo Thorsten,<br><br>
That's it! Genau danach habe ich gesucht.<br>
Habe leider in der VBA-Hilfe (aus Unwissenheit) immer nur nach Page,<br>
Pagenumber, Seitenzahl, Seitennummer gesucht aber leider nichts gefunden.<br><br>
Danke<br><br>
Stefan Schreie

[Torsten Grundke]

Hallo Stefan,

Du hast völlig Recht, wenn man nicht genau weiß wonach man suchen muß wird es mit der VBA-Hilfe schwierig. Es ist allerdings nur eine Frage der Zeit/Übung um zumindest in der Nähe des Zieles mit dem suchen zu beginnen. Der Hinweis auf die VBA-Hilfe bezog sich auf die Parameter der Eigenschaft "Information".

Tschüß

Torste