Voglio un modo per aggiornare tutti i campi in un documento di Word 2013. (Se funziona in altre versioni, tanto meglio; inizialmente avevo questo problema con Word 2007 e da allora nulla sembra essere cambiato.) Ciò include riferimenti incrociati, numeri di pagina, sommari, indici, intestazioni, ecc. Se può essere aggiornato premendo F9, lo voglio aggiornato.
(In teoria l'aggiornamento dei campi può richiedere l'aggiornamento di altri campi, ad esempio un sommario più lungo modifica alcuni numeri di pagina nel testo principale. Prendersi cura dei casi comuni è abbastanza buono per me. In effetti, va bene se devo eseguire la macro due o tre volte prima che si stabilizzi. Voglio solo avere una singola macro che trovi tutto.)
Il mio tentativo finora non aggiorna i campi nelle caselle di testo all'interno delle figure. Come posso aggiornarli e cos'altro mi sono perso?
EDIT : Combinando la risposta data con quello che avevo già si ottiene una macro che sembra aggiornare tutto (con un difetto noto ).
'' 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