Word 2013 belgesindeki tüm alanları güncelleştirmenin bir yolunu istiyorum . (Eğer diğer sürümlerde çalışıyorsa, hepsinden daha iyisi; Word 2007 ile asıl sorunum vardı ve o zamandan beri hiçbir şey değişmedi.) Buna çapraz referanslar, sayfa numaraları, içindekiler tablosu, dizinler, başlıklar vb. Tuşuna basarak güncellenebilirse F9, güncellenmesini istiyorum.
(Teorik olarak güncelleme alanları başka alanların güncellenmesine neden olabilir, örneğin daha uzun bir içindekiler ana metindeki bazı sayfa numaralarını değiştirir. Yaygın durumlara dikkat etmek benim için yeterlidir. Aslında, çalıştırmam gerekirse makro stabilize etmeden iki veya üç kez önce. Sadece her şeyi bulan tek bir makroya sahip olmak istiyorum.)
Şimdiye kadar yaptığım girişimi rakamların içindeki metin kutularındaki alanları güncellemiyor. Onları nasıl güncellerim ve başka neleri kaçırdım?
EDIT : Sahip olduğum cevap ile verilen cevapları birleştirmek, her şeyi ( bilinen bir kusurla ) güncelleyen bir makro verir .
'' 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