Quero uma maneira de atualizar todos os campos em um documento do Word 2013. (Se funcionar em outras versões, tanto melhor; eu originalmente tive esse problema com o Word 2007 e nada parece ter mudado desde então.) Isso inclui referências cruzadas, números de páginas, índices, índices, cabeçalhos etc. Se puder ser atualizado pressionando F9, quero que seja atualizado.
(Em teoria, a atualização de campos pode fazer com que outros campos precisem de atualização, por exemplo, um sumário mais longo altera alguns números de página no texto principal. Cuidar dos casos comuns é bom o suficiente para mim. Na verdade, tudo bem se eu precisar executar a macro duas ou três vezes antes de se estabilizar. Eu só quero ter uma única macro que encontre tudo.)
Até agora, minha tentativa não atualiza campos em caixas de texto dentro de figuras. Como atualizá-los e o que mais eu perdi?
EDIT : Combinar a resposta dada com o que eu já tinha fornece uma macro que parece atualizar tudo (com um defeito conhecido ).
'' 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