Domino 9 und frühere Versionen > ND6: Entwicklung

Word mit VBA Seitenzahl aktualisieren

<< < (2/3) > >>

Axel:
Hi,

wo hast du denn den Code eingefügt und dast du die beiden Variablen deklariert?
Wie lauten den die genauen Fehlermeldungen. Die du gepostet hast, sehen mir recht unvollständig aus.

Bei mir läuft der Code im AutoOpen-Event des Word-Dokumentes


Axel

Badhei:
hi,

aso das erklärt warum ich die Fehlermeldungen habe, ich hab den Code in meine LotusScript Bibliothek kopiert.

Das Word-Dokument wird beim erzeugen nicht zur Anzeige gebracht, greift dann überhaupt das AutoOpen - Event.

Axel:
Hi,

ich glaube nicht.

Basiert das erstellte Dokument auf einer Vorlage oder wird es frei erzeugt?


Axel

Badhei:
Hi,

über eine Vorlage wird das Dokument erzeugt und wie oben geschrieben vor Änderungen geschützt. Das erzeugte Word-Dokument wird dann in ein Notesdokument eingebunden. Das Notesdokument wird dann im Web zur Ansicht gebracht. Der Benuzter öffnet dann im Web das eingebundene Word-Dokument.

Ich hab jetzt ins AutoOpen dein Script geschrieben. Beim öffnen im Web werde ich jetzt gefragt ob ich das Macro aktivieren will, aber die Seitenzahlen werden nicht aktualisiert.

Axel:
Hi,

füge den Code doch mal als eigenständige Prozedur in deine Vorlage ein.

z.B.

Sub FelderAktualisierung

    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

End Sub

Dann kannst du mit Call Letter.Run "FelderAktualisierung" die Prozedur aus LotusScript aktualisieren.

Eine andere Alternative wäre den Code zu umzubauen, dass er von LotusScript aus über die COM-Schnittstelle die Felder aktualisiert. Wenn ich mir deine Postings so anschaue, dann heißt deine Variable zum Zugriff auf das Word-Dokument Letter.

...

    Dim aStory As Variant
    Dim aField As Variant

    For Each aStory In Letter.ActiveDocument.StoryRanges
   
       For Each aField In aStory.Fields
          aField.Update
       Next aField
   
    Next aStory
...

Ich hab's mal versucht umzubauen, aber ich kann dir nicht versprechen ob'so funktioniert. Ich kann's leider hier nicht testen.

Aber eins verstehe ich nicht, das Aktualisieren der Seitennummerirung funktioniert eigentlich immer problemlos, auch ohne solche Klimmzüge.


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete