Word Automation Seitenzahl hinzufügen

[capo]

Guten Morgen!
Ich exportiere ein Stringgrid in ein Word-Dokument.
Manchmal werden dadurch mehrere Seite in Word erzeugt.
Wie kann ich jeder Seite eine Seitenzahl zuweisen?
Noch besser wäre es wenn da stehen würde 1 von 4 usw.

Grüße Capo

[Chemiker]

Hallo capo,

versuche einen Macro in MSWord aufzuzeichnen, anschließend in Delphi umsetzen, Oder diesen Macro von Delphi aus starten.

Macro ausführen

Bis bald Chemiker

[capo]

Hallo...das habe ich gerade gemacht.
Nun wüßte ich zu gerne wie ich das umschreiben kann, sodass ich es von Delphi ausführen lassen kann:

Zitat:

WordBasic.ViewFooterOnly
ActiveDocument.AttachedTemplate.BuildingBlockEntri es("Einfache Zahl 3"). _
Insert Where:=Selection.Range, RichText:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Gruss Capo

[capo]

Ich hab hier was ähnliches im Forum gefunden:
http://www.delphipraxis.net/internal...t.php?p=949374
Hat sich somit erledigt!
Danke
Gruss Capo