Opdatering af formularfelter

Mit dokument består af 4 sider.
Side 1 er en formular, bliver fyldt med data fra en Access database og som brugeren så kan rette i eller tilføje data til.
Side 2, 3 og 4 er alle identiske og indeholder et Ref felt for hvert formular felt der er på side 1.
Jeg bruger denne kode i en makro til at opdatere felterne på side 2, 3 og 4 inden dokumentet skal skrives ud, men det tager godt nok lang tid at løbe dokumentet igennem (der er 52 formularfelter på side 1!)

Er der en anden (hurtigere) måde at opdatere dokumentet på?

    For Each oStory In ActiveDocument.StoryRanges
    Do
    For Each oField In oStory.Fields
      If oField.Type = wdFieldRef Then
        oField.Update
      End If
    Next oField
    Set oStory = oStory.Next
    Loop Until oStory Is Nothing
  Next oStory