Domino 9 und frühere Versionen > ND6: Entwicklung
Word mit VBA Seitenzahl aktualisieren
Badhei:
Hallo,
ich erzeuge über eine Wordvorlage ein Dokument. In der Vorlage sind Felder für die Seitenzahlen enthalten. Das erzeugte Worddokument kann je nach Menge der Daten unterschiedlich lang werden. Wenn das füllen des Dokuments abgeschlossen ist sperre ich das Worddokument so das keine Änderungen mehr vorgenommen werden können. Dies funktioniert wunderbar mit "Call Letter.Protect(1,False,"xxxxxx")".
Danach speichere ich und hänge das Dokument in ein Notesdokument.
Mein Problem ist jetzt das die Seitenzahl in der Fusszeile nicht aktualisiert werden.
Gebe ich das Dokument über Word am Bildschirm aus stimmen zwar die Seitenzahlen auch nicht diese werden aber dann wenn ich drucke von Word automatisch aktualisiert.
Mit folgenden Codezeilen habe ich schon probiert die Seitenzahlen mit VBA zu aktualisieren leider ohne erfolg.
Call Letter.Sections(1).Footers(wdHeaderFooterFirstPage).Range.Fields.Update
Call Letter.Sections(1).Footers(wdHeaderFooterPrimary).Range.Fields.Update
Vielleicht hat einer ein Idee für mich wie ich dieses Problem lösen kann.
Axel:
Hi,
schau mal im Optionen-Dialog von Word auf dem Reiter "Drucken" nach, ob da die Option "Felder aktualisieren" markiert ist. Wenn nicht, setz dort mal den Haken und probiers dann nochmal.
Axel
Badhei:
Das Problem ist es muß mit VBA möglich sein. Da ich das Dokument vor Änderungen schütze bevor es gedruckt wird können die Seitenzahlen nicht mehr aktualisiert werden.
Axel:
Hi,
ich aktualisiere meine Felder mit diesem Script:
...
Dim aStory As Range
Dim aField As Field
For Each aStory In ActiveDocument.StoryRanges
For Each aField In aStory.Fields
aField.Update
Next aField
Next aStory
...
Axel
Badhei:
Wenn ich deinen Code einfüge bekommen ich zwei Fehlermeldungen beim speichern vom Code.
Unexpected aStory, Expected: =
und
Unexpected aField, Expected: =
Navigation
[0] Themen-Index
[#] Nächste Seite
Zur normalen Ansicht wechseln