emeier

Sub AutoOpen() Dim aStory As Range For Each aStory In ActiveDocument.StoryRanges aStory.Fields.Update Next aStory End Sub ...unter meinem Word2003SP2 läuft dieser Code deutlich schneller ab. Bei großen Dokumenten entstanden sonst minutenlange Wartezeiten. Hoffentlich gibt es keine anderweitigen Nebenwirkungen, getestet habe ich es nicht besonders.