Мне нужен способ обновления всех полей в документе Word 2013. (Если это работает в других версиях, тем лучше; у меня изначально была эта проблема с Word 2007, и с тех пор, похоже, ничего не изменилось.) Это включает перекрестные ссылки, номера страниц, оглавления, индексы, заголовки и т. Д. Если это можно обновить нажатием F9, я хочу обновить.
(Теоретически обновление полей может привести к необходимости обновления других полей, например, более длинное оглавление изменяет некоторые номера страниц в основном тексте. Мне достаточно позаботиться об общих случаях. На самом деле, все нормально, если мне нужно запустить макрос два или три раза, прежде чем он стабилизируется. Я просто хочу иметь один макрос, который находит все.)
Моя попытка пока не обновляет поля в текстовых полях внутри рисунков. Как мне их обновить и что еще я пропустил?
РЕДАКТИРОВАТЬ : Объединение ответа с тем, что у меня уже было, дает макрос, который, кажется, обновляет все (с известным дефектом ).
'' 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