Hallo zusammen,

ich habe eine Dokumentenvorlage. Wenn ich die Dokumentenvorlage öffne und einen neuen Dateinamen speichere. Das Feld was mit den Dateinamen verknüpft ist wird nicht automatisch aktualiert.

Nun habe ich den folgendes Makro eingefügt:

Sub AutoOpen()

  If ActiveDocument.ProtectionType = wdNoProtection Then

     Dim oStory As Range

     For Each oStory In ActiveDocument.StoryRanges

        oStory.Fields.Update

        If oStory.StoryType <> wdMainTextStory Then

           While Not (oStory.NextStoryRange Is Nothing)

              Set oStory = oStory.NextStoryRange

              oStory.Fields.Update

           Wend

        End If

        Next oStory

        Set oStory = Nothing

  Else

     MsgBox "Das Dokument ist schreibgeschützt. DocProperties konnten nicht aktualisiert werden.", , "Fehler beiaktualisiern der DocProperties"

  End If

End Sub

Das funktioniert super. Leider sieht man die Aktualierung des Feldes erst wenn man die Datei schließt und wieder öffnet. Gibt es die Möglichkeit die Aktualisierung gleich nach dem Speichern zu sehen?

Ich danke euch :) Liebe Grüße