Sub OpdaterAlleFelter()

    Dim oStory As Range
    Dim oToc As TableOfContents

    'Hvert område i et dokument er en 'Story'
    'Gennemløb alle stories og opdater felter deri

    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

    'Opdater indholdsfortegelse(r)
    For Each oToc In ActiveDocument.TablesOfContents
        oToc.Update
    Next oToc

    'Ryd op
    Set oStory = Nothing

End Sub