Saya ingin cara memperbarui semua bidang dalam dokumen Word 2013. (Jika berfungsi di versi lain, semuanya lebih baik; Saya awalnya memiliki masalah dengan Word 2007, dan sepertinya tidak ada yang berubah sejak saat itu.) Ini termasuk referensi silang, nomor halaman, daftar isi, indeks, header, dll. Jika itu dapat diperbarui dengan menekan F9, saya ingin itu diperbarui.
(Dalam bidang pembaruan teori dapat menyebabkan bidang lain perlu diperbarui, misalnya daftar isi yang lebih panjang mengubah beberapa nomor halaman dalam teks utama. Merawat kasus umum cukup baik untuk saya. Bahkan, tidak apa-apa jika saya harus menjalankan makro dua atau tiga kali sebelum stabil. Saya hanya ingin memiliki satu makro yang menemukan segalanya.)
Upaya saya sejauh ini tidak memperbarui bidang dalam kotak teks di dalam angka. Bagaimana cara saya memperbaruinya, dan apa lagi yang saya lewatkan?
EDIT : Menggabungkan jawaban yang diberikan dengan apa yang sudah saya miliki memberikan makro yang tampaknya memperbarui semuanya (dengan cacat yang diketahui ).
'' 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
sumber
Dim toa As Word.TableOfAuthorities / For Each toa In ActiveDocument.TablesOfAuthorities / toa.Update / Next
Jawaban:
Buka pengaturan cetak, pilih bidang pembaruan. Lalu pergi untuk mencetak, atau cetak pratinjau dokumen Anda.
Demikian juga, semua bidang diperbarui!
sumber
Saya hanya melakukan Ctrl+ A- untuk memilih semuanya - dan kemudian F9 memperbarui banyak.
Meskipun, ini melewatkan header dan footer, tetapi mereka memperbarui ketika Anda mencetak / mencetak-pratinjau IIRC.
Memperbarui
Saya telah menemukan makro berikut. Pada tes cepat itu diperbarui daftar isi, bidang dalam paragraf, bidang dalam header dan footer, dan bidang dalam angka kotak teks mengambang.
Semoga itu mencakup semua yang Anda butuhkan, jika tidak harap tunjukkan apa yang masih gagal diperbarui.
sumber
NextStoryRange
dan dengandocument.StoryRanges
hal-hal yang berbeda, tetapi kode Anda dikombinasikan dengan pembaruan tabel saya sudah membuat pemenang (well, hampir , tapi itu masalah yang berbeda).Halaman ini terlihat menarik:
sumber
Word 2010:
Klik kanan pita, sesuaikan pita, pilih perintah dari "semua perintah", cari "perbarui" dan tambahkan di tempat yang Anda inginkan.
Tombol ini hanya memperbarui bidang yang dipilih.
Kemudian, untuk memperbarui semua bidang, tekan Ctrl+ Alalu tombol ini.
sumber
F9
? Apakah itu benar-benar memperbarui angka, tabel, dll?Jika Anda ingin memperbarui semua header dan footer dengan benar, ini berfungsi untuk saya:
sumber
Untuk C #:
sumber