Chcę sposobu aktualizacji wszystkich pól w dokumencie Word 2013. (Jeśli działa w innych wersjach, tym lepiej; pierwotnie miałem ten problem z programem Word 2007 i od tego czasu wydaje się, że nic się nie zmieniło). Obejmuje to odsyłacze, numery stron, spis treści, indeksy, nagłówki itp. Jeśli można to zaktualizować naciskając F9, chcę to zaktualizować.
(Teoretycznie aktualizacja pól może powodować konieczność aktualizacji innych pól, np. Dłuższy spis treści zmienia niektóre numery stron w tekście głównym. Dbanie o typowe przypadki jest dla mnie wystarczające. Właściwie to dobrze, jeśli muszę uruchomić makro dwa lub trzy razy, zanim się ustabilizuje. Chcę tylko jedno makro, które wszystko znajdzie.)
Moja dotychczasowa próba nie aktualizuje pól w polach tekstowych wewnątrz rysunków. Jak je zaktualizować i czego jeszcze mi brakowało?
EDYCJA : Połączenie odpowiedzi udzielonej z tym, co już miałem, daje makro, które wydaje się aktualizować wszystko (ze znaną wadą ).
'' 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
źródło
Dim toa As Word.TableOfAuthorities / For Each toa In ActiveDocument.TablesOfAuthorities / toa.Update / Next
Odpowiedzi:
Przejdź do ustawień drukowania, wybierz pola aktualizacji. Następnie przejdź do wydruku lub wydrukuj podgląd dokumentu.
I voila, wszystkie pola są aktualizowane!
źródło
Po prostu robię Ctrl+ A- aby wybrać wszystko - a następnie F9 zaktualizować partię.
Wprawdzie brakuje nagłówków i stopek, ale są one aktualizowane podczas drukowania / podglądu wydruku IIRC.
Aktualizacja
Znalazłem następujące makro. Podczas szybkiego testu zaktualizowano spis treści, pola w akapitach, pola w nagłówku i stopce oraz pola w postaci pływającego pola tekstowego.
Mam nadzieję, że obejmuje to wszystko, czego potrzebujesz, jeśli nie, proszę wskazać, co nadal nie aktualizuje się.
źródło
NextStoryRange
idocument.StoryRanges
to dwie różne rzeczy, ale kod połączeniu z aktualizacji tabeli I już mieli uzupełnić zwycięzcę (no, prawie , ale to inna kwestia).Ta strona wygląda interesująco:
źródło
Słowo 2010:
Kliknij wstążkę prawym przyciskiem myszy, dostosuj wstążkę, wybierz polecenie z „wszystkich poleceń”, wyszukaj „aktualizuj” i dodaj ją tam, gdzie chcesz.
Ten przycisk aktualizuje tylko wybrane pola.
Następnie, aby zaktualizować wszystkie pola, naciśnij Ctrl+, Aa następnie ten przycisk.
źródło
F9
? Czy to naprawdę aktualizuje dane, tabele itp.?Jeśli chcesz poprawnie zaktualizować wszystkie nagłówki i stopki, działało to dla mnie:
źródło
Dla C #:
źródło