Word 2013文書のすべてのフィールドを更新する方法が必要です。(それが他のバージョンでもうまくいくなら、Word 2007で元々この問題があり、それ以来何も変わっていないようです。)これには、相互参照、ページ番号、目次、インデックス、ヘッダーなどが含まれます。を押して更新できる場合F9、更新します。
(理論的には、フィールドを更新すると、他のフィールドを更新する必要がある場合があります。たとえば、目次を長くすると、本文のページ番号が変更されます。よくあるケースに注意するだけで十分です。実際、マクロが安定するまでに2〜3回。すべてを見つける単一のマクロが必要です。
これまでの私の試みでは、図内のテキストボックスのフィールドは更新されません。それらを更新するにはどうすればよいですか?
編集:私がすでに持っていたものと与えられた答えを組み合わせると、(既知の欠陥で)すべてを更新するように見えるマクロが得られます。
'' Update all the fields, indexes, etc. in the specified document.
Sub UpdateAllFieldsIn(doc As Document)
'' Update tables. We do this first so that they contain all necessary
'' entries and so extend to their final number of pages.
Dim toc As TableOfContents
For Each toc In doc.TablesOfContents
toc.Update
Next toc
Dim tof As TableOfFigures
For Each tof In doc.TablesOfFigures
tof.Update
Next tof
'' Update fields everywhere. This includes updates of page numbers in
'' tables (but would not add or remove entries). This also takes care of
'' all index updates.
Dim sr As range
For Each sr In doc.StoryRanges
sr.Fields.Update
While Not (sr.NextStoryRange Is Nothing)
Set sr = sr.NextStoryRange
'' FIXME: for footnotes, endnotes and comments, I get a pop-up
'' "Word cannot undo this action. Do you want to continue?"
sr.Fields.Update
Wend
Next sr
End Sub
'' Update all the fields, indexes, etc. in the active document.
'' This is a parameterless subroutine so that it can be used interactively.
Sub UpdateAllFields()
UpdateAllFieldsIn ActiveDocument
End Sub
Dim toa As Word.TableOfAuthorities / For Each toa In ActiveDocument.TablesOfAuthorities / toa.Update / Next