Opdatering af alle felter i Word 2007 (og indholdsfortegelse)

Hej

Jeg bruger Office 2007 og jeg har prøvet følgende macro's for at opdatere ALLE felter i mit dokument.

Sub Opdaterfelter()
  ActiveDocument.Fields.Update
end sub

fra http://www.eksperten.dk/spm/821369

og

Sub OpdaterAlleFelter()

Dim oStory As Range

'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

'Ryd op
Set oStory = Nothing

End Sub

fra http://wordblog.thedoctools.com/#post38

Det er lykkedes mig at lave disse Macro's og de opdatere også mine krydshenvisninger og tallene på mine tabeller og figure, men det opdatere ikke indholdsfortegenelsen. Kan man ikke også lave det?

Hilsen Flemming