Word-テキストボックス内を含めた、すべてのフィールドの一括更新

Wordで複数のテキストボックス内に相互参照を貼りまくっている場合、
Ctrl Aで一括選択後F9を押しても、フィールドが更新されない。

これは、マクロを使うしかないようです。

Sub AllFieldUpdate()

　Dim aStory As Range
　Dim aField As Field

　For Each aStory In ActiveDocument.StoryRanges
　   For Each aField In aStory.Fields
　　　   aField.Update
　　  Next aField
　Next aStory

End Sub