Delphi-PRAXiS - Delphi Word Automation Seitenzahl hinzufügen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Word Automation Seitenzahl hinzufügen (https://www.delphipraxis.net/126285-word-automation-seitenzahl-hinzufuegen.html)

capo	22. Dez 2008 06:24

Word Automation Seitenzahl hinzufügen

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

22. Dez 2008 06:49

Re: Word Automation Seitenzahl hinzufügen

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	22. Dez 2008 06:50

Re: Word Automation Seitenzahl hinzufügen

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	22. Dez 2008 07:13

Re: Word Automation Seitenzahl hinzufügen

Ich hab hier was ähnliches im Forum gefunden:

http://www.delphipraxis.net/internal...t.php?p=949374
Hat sich somit erledigt!
Danke
Gruss Capo

Alle Zeitangaben in WEZ +1. Es ist jetzt 12:04 Uhr.