Как обновить все поля в документе Word?

Я просто делаю Ctrl+ A- чтобы выбрать все - и затем F9 обновить лот.

Хотя, это пропускает верхние и нижние колонтитулы, но они обновляются при печати / предварительном просмотре IIRC.

Обновить

Я нашел следующий макрос. При быстром тестировании были обновлены оглавления, поля в абзацах, поля в верхнем и нижнем колонтитулах, а также поля в плавающем текстовом поле.

Надеюсь, это охватывает все, что вам нужно, если нет, укажите, что все еще не удалось обновить.

Источник: http://www.gmayor.com/install_macro.htm

Sub UpdateAll() Dim oStory As Range For Each oStory In ActiveDocument.StoryRanges oStory.Fields.Update If oStory.StoryType <> wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Set oStory = oStory.NextStoryRange oStory.Fields.Update Wend End If Next oStory Set oStory = Nothing End Sub 

Go into the print settings, select update fields. Then go to print, or print preview your doc.

Et voilà, all fields are updated!

Эта страница выглядит интересно:

Если вы используете Word 2007, процесс немного отличается: нажмите кнопку Office, а затем нажмите «Параметры Word». Word отображает диалоговое окно Word Options. Нажмите «Дополнительно» в левой части диалогового окна. (Щелкните здесь, чтобы увидеть связанный рисунок.) В области «Общие» (прокрутите немного вниз, чтобы увидеть его), убедитесь, что установлен флажок «Обновить автоматические ссылки при открытии». Нажмите на ОК. Этот параметр должен убедиться, что все ваши ссылки всегда обновлены. Если вы хотите обновить поля при открытии документа, вам нужно использовать макрос для выполнения задачи. В частности, вам нужно будет использовать макрос AutoOpen или AutoClose, в зависимости от того, хотите ли вы обновить поля при открытии или закрытии документа. Ниже приведен пример макроса AutoOpen, который вы можете использовать.

Sub AutoOpen() With Options .UpdateFieldsAtPrint = True .UpdateLinksAtPrint = True End With ActiveDocument.Fields.Update End Sub 

Обратите внимание, что макрос проверяет, установлены ли параметры для принудительного обновления полей и ссылок при печати, а затем обновляет все элементы коллекции Fields в документе. Если вы вместо этого хотите обновить поля при закрытии, вы можете использовать этот макрос:

Sub AutoClose() ActiveDocument.Fields.Update End Sub 

Этот макрос намного короче, поскольку нет необходимости устанавливать параметры обновления при печати при выходе из документа. Выход из документа.

If you want to properly update all headers and footers, this worked for me:

 Dim oStory As Range Dim oSection As Object Dim oHeader As Object Dim oFooter As Object For Each oStory In ActiveDocument.StoryRanges oStory.Fields.Update Next oStory For Each oSection In ActiveDocument.Sections For Each oHeader In oSection.Headers oHeader.Range.Fields.Update Next oHeader For Each oFooter In oSection.Footers oFooter.Range.Fields.Update Next oFooter Next oSection 

Word 2010:

Щелкните правой кнопкой мыши по ленте, настройте ленту, выберите команду из «всех команд», найдите «обновление» и добавьте ее в нужное место.

Эта кнопка обновляет только выбранные поля.
Затем, чтобы обновить все поля, нажмите Ctrl+, Aзатем эту кнопку.

For C#:

using System; using System.Collections.Generic; using System.IO; using Microsoft.Office.Interop.Word; class Program { static void Main(string[] args) { List<string> path = new List<string>(args); string filePathstr = string.Join(" ", path.ToArray()); //System.Windows.Forms.MessageBox.Show("filepathstr: " + filePathstr); string folderPathstr = Path.GetDirectoryName(filePathstr); //System.Windows.Forms.MessageBox.Show("folderPathstr: " + folderPathstr); try { Application ap = new Application(); Document document = ap.Documents.Open(filePathstr); document.Fields.Update(); foreach (Section section in document.Sections) { document.Fields.Update(); // update each section HeadersFooters headers = section.Headers; //Get all headers foreach (HeaderFooter header in headers) { Fields fields = header.Range.Fields; foreach (Field field in fields) { field.Update(); // update all fields in headers } } HeadersFooters footers = section.Footers; //Get all footers foreach (HeaderFooter footer in footers) { Fields fields = footer.Range.Fields; foreach (Field field in fields) { field.Update(); //update all fields in footers } } } document.Save(); document.Close(); } catch (NullReferenceException) { System.Windows.Forms.MessageBox.Show("A valid file was not selected."); } } }