Worddocument in Delphi mit Text füllen und formatieren

[BAMatze]

Also hab jetzt eigentlich 2 gute Seiten gefunden (euch sind sie sicherlich schon bekannt) mit denen ich zumindest den Problemen näher komme. Allerdings glaube ich verstehe ich das noch nicht 100%.

Vieleicht könntet ihr mir am Bsp der Seitenzahl mal helfen. Hier zumindest meine Quellen erstmal:
1.) Office-Lösungen
2.) MSDN (Standard)

Ok ich verstehe das wie folgt, um eine Seitenzahl einzufügen muss ich folgendes schreiben:

Delphi-Quellcode:

vbTemp := true;
FWordApplication.ActiveDocument.ComputeStatistics(wdStatisticPages,vbTemp); //vb ist OLEVariant

habe vbTemp auf true gesetzt, weil ich das durch MSDN so interpretiert habe

Zitat:

expression.ComputeStatistics(Statistic, IncludeFootnotesAndEndnotes)

expression Required. An expression that returns one of the above objects.
WdStatistic
WdStatistic can be one of these WdStatistic constants.
wdStatisticCharacters
wdStatisticCharactersWithSpaces
wdStatisticFarEastCharacters
wdStatisticLines
wdStatisticPages
wdStatisticParagraphs
wdStatisticWords

IncludeFootnotesAndEndnotes Optional Variant. True to include footnotes and endnotes when computing statistics. If this argument is omitted, the default value is False.

Allerdings funktioniert das noch nicht ganz. Weiß jemand eventuell, wo der Fehler hier liegt?

Vielen Dank
BAMatze
Edit1: Hier noch der Quellcode, den ich insgesamt geschrieben hab:

Delphi-Quellcode:

var vbTemp: OleVariant;
begin
  vbTemp := true;
  FWordApplication.ActiveWindow.ActivePane.View.SeekView:=wdSeekCurrentPageFooter; //Wechsel in Fusszeile
  FWordApplication.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter; // Text zentriert ausgeben
  FWordApplication.ActiveDocument.ComputeStatistics(wdStatisticPages,vbTemp); // gemäß Office-Lösungen
  //FWordApplication.ActiveDocument.ComputeStatistics(wdStatisticPages,nil); // war ein weiterer Versuch ohne Ergebnis
  //FWordApplication.ActiveDocument.ComputeStatistics(wdStatisticPages,emptyParam); // war ein weiterer Versuch ohne Ergebnis
  FWordApplication.ActiveWindow.ActivePane.View.SeekView:=wdSeekMainDocument; // ins Hauptdokument wechseln
end;

Es wird aber keine Seitenzahl angezeigt.