Makro Automatischer DocProperty Update

Einrichtung

• Word öffnen
• Extras->Makro->Makros...
• AutoOpen erstellen
• Folgendes Makro einfügen

Sub AutoOpen()
'
' UpdateDocprops Makro
' http://www.gmayor.com/installing_macro.htm
'
'
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

End Sub