複数のテキストボックスを一括でフィールド更新したい

添付の画像のように、
ワード内に、複数のテキストボックスを挿入しています。
そして、それぞれのテキストボックスの中に、相互参照でページ番号をひとつずつ入れています。

これらを一括で更新する場合、どのようにしたら良いでしょうか。
（テキストボックス以外のページ番号も一緒に更新出来れば尚良いです。）

よろしくお願いします。

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2012/02/09 20:56

一括で更新するとなると、マクロを使うことになります。

以下のマクロを登録して、実行してみてください。
本文だけでなく、テキストボックスやヘッダー・フッターに
あるフィールドコードも更新してくれます。

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

No.2 回答者： keithin 回答日時： 2012/02/09 21:15

ワタシなら，（念のため事前にワードのオプションで「印刷前にフィールドを更新する」にチェックが入っていることを確認した上で）印刷プレビュー画面を出して更新させます。

この回答への補足

自動更新できるようにと以前から「印刷前にフィールドを更新する」にチェックを入れているのですが、テキストボックスは更新されませんでした。

補足日時：2012/02/10 09:20