Automatisk opdatering af fod-note i normal.dot skabelonen

Anbring denne makro i
ThisDocument i Normal.dot

Private Sub Document_New()
    Selection.WholeStory
    Selection.Fields.Update
End Sub

men da det er i "footer", skal der lidt mere til:
(optaget med makro-recorderen)

Private Sub Document_New()
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    ActiveWindow.ActivePane.View.NextHeaderFooter
    If Selection.HeaderFooter.IsHeader = True Then
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Else
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    End If
    Selection.WholeStory
    Selection.Fields.Update
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

det er ikke stort bedre... Det dur ikke at gøre det i Document_New,
Man kan gøre det i Document_Close, men kun hvis filen er navngivet (Save/SaveAs) inden man lukker. (Jeg mener at Document_Close kommer før dialogboksen, der spørger om man vil gemme)

Den hurtigste måde at opdatere felter i sidehovede/fod m.fl. er

    ActiveDocument.PrintPreview
    ActiveDocument.ClosePrintPreview

Hvor den så skal ligge i det konkrete tifælde, kan jeg ikke lige gennemskue.