Makro Automatischer DocProperty Update

Jump to bottom Edit New page

Philippe Gross edited this page Mar 6, 2015 · 3 revisions

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