Как обновить весь документ word

Тот, кто писал и приводил к единому формату длинные текстовые документы, знает, как утомительно делать это вручную. Специально для таких случаев в Word был разработан механизм обновления полей. Оно позволяет, например, обновить все колонтитулы, оглавления, нумерацию страниц и так далее автоматически. Конечно, это очень удобно.

Обновить все поля в Word

Если вы хотите обновить поле в Word, отметьте его щелчком мыши, а затем нажмите клавишу [F9].

Если же необходимо обновить все поля одновременно, сначала выберите все содержимое с помощью комбинации клавиш [CTRL] + [A], а затем нажмите [F9]. Таким образом вы обновите поля по всему документу.

К сожалению, Word реагирует несколько вяло, когда дело доходит до обновления полей. Если не все элементы обновлены, просто нажмите клавишу [F9] еще раз. В зависимости от длины документа вам придется произвести 4-5 итераций, но это все равно проще, чем делать все вручную. Однако в качестве альтернативы можно воспользоваться обходным решением.

Обновление всех полей через окно печати

Другой способ обновить все поля — через функцию печати. Для этого вам не нужно печатать документ. Достаточно открыть окно печати с помощью комбинации клавиш [CTRL] + [P], а затем снова закрыть его нажатием на Escape. После этого Word обновит все поля.

Эта мера обычно срабатывает быстрее, чем первый вариант, поскольку Word обновляет и сохраняет внутренние свойства документа для определенных действий. Печать является одним из них, потому что дата печати является полевой функцией и должна быть доступна.

Этот совет основан на MS Office Word 2007, но он годится и для Word 2010 и Word 2013.

Фото: pxhere.com, microsoft.com

Читайте также: 

• Опасный вирус распространяется через файлы Microsoft Word
• Как найти искомое в Word

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

Мне нужен способ обновления всех полей в документе Word 2013 (если он работает в других версиях, тем лучше; я изначально У lly была эта проблема с Word 2007, и, похоже, с тех пор ничего не изменилось.) Сюда входят перекрестные ссылки, номера страниц, оглавление, индексы, заголовки и т. д. Если это можно обновить, нажав F9 , я хочу его обновить.

(Теоретически обновление полей может вызвать необходимость обновления других полей, например более длинное оглавление меняет некоторые номера страниц в основном тексте. Для меня достаточно заботы о простых случаях. На самом деле это нормально, если мне придется запустить макрос два или три раза, прежде чем он стабилизируется. Я просто хочу иметь один макрос, который все находит.)

Моя попытка пока не обновляет поля в текстовых полях внутри рисунков. Как мне обновить их и что еще я пропустил?

EDIT : объединение ответа с тем, что у меня уже было, дает макрос который, кажется, обновляет все (с известным дефектом).

  '' 'Обновить все поля, индексы и т. д. в указанном документе. Sub UpdateAllFieldsIn (doc As Document)'  'Обновить таблицы.  Мы делаем это в первую очередь, чтобы они содержали все необходимые записи и таким образом распространялись на их окончательное количество страниц.  Dim toc As TableOfContents для каждого toc In doc.TablesOfContents toc.Update Next toc Dim tof As TableOfFigures For Each toof In doc.TablesOfFigures toof.Update Next toof '' Обновить поля везде.  Это включает обновления номеров страниц в таблицах (но не добавляет и не удаляет записи).  Это также заботится обо всех обновлениях индекса.  Dim sr As range For Each sr In doc.StoryRanges sr.Fields.Update While Not (sr.NextStoryRange Is Nothing) Установить sr = sr.NextStoryRange '' FIXME: для сносок, концевых сносок и комментариев я получаю всплывающее окно ''  «Word не может отменить это действие. Продолжить?»  sr.Fields.Update Wend Next srEnd Sub '' Обновить все поля, индексы и т. д. в активном документе. '' Это подпрограмма без параметров, поэтому ее можно использовать в интерактивном режиме. Sub UpdateAllFields () UpdateAllFieldsIn ActiveDocumentEnd Sub  

Зайдите в настройки печати, выберите поля обновления. Затем перейдите к печати или предварительному просмотру документа.

Итак, все поля обновлены!

   Sub UpdateAll () Dim oStory как диапазон для каждого oStory в ActiveDocument.StoryRanges oStory.Fields.Update If oStory.StoryType  wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Установите oStory = oStoryRange.Nextory.  Fields.Update Wend End If Next oStory Set oStory = NothingEnd Sub  

   Sub UpdateAll () Dim oStory как диапазон для каждого oStory в ActiveDocument.StoryRanges oStory.Fields.Update If oStory.StoryType  wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Установить oStory = oStoryRange.Nextory.  Fields.Update Wend End If Next oStory Set oStory = NothingEnd Sub  

  Sub AutoOpen () с параметрами .UpdateFieldsAtPrint = True .UpdateLinksAtPrint = True End With ActiveDocument.Fields  .UpdateEnd Sub  

  Sub AutoClose () ActiveDocument.Fields.UpdateEnd Sub  

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

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

  Sub AutoOpen () с параметрами .UpdateFieldsAtPrint = True .UpdateLinksAtPrint = True End With ActiveDocument.Fields  .UpdateEnd Sub  

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

  Sub AutoClose () ActiveDocument.Fields.UpdateEnd Sub  

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

Word 2010:

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

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

  Dim oStory As Range Dim oSection As Object Dim oHeader As  Объект Dim oFooter как объект для каждого oStory в ActiveDocument.StoryRanges oStory.Fields.Update Next oStory для каждого oSection в ActiveDocument.Sections для каждого oHeader в oSection.Headers oHeader.Range.Fields.Update Next oHeader для каждого oHeader.Range.Fields.Update Next oHeader для каждого oFooter.Footer in oSection  .Range.Fields.Update Next oFooter Next oSection  

Если вы хотите правильно обновить все верхние и нижние колонтитулы, у меня это сработало:

  Dim oStory As Range Dim oSection As Object Dim oHeader As Object Dim oFooter As Object Для каждого oStory в ActiveDocument.StoryRanges oStory.Fields.Update Next oStory Для каждого oSection In ActiveDocument.Sections For each oHeader In oSection.Headers oHeader.Reader.  Fields.Update Next oHeader для каждого oFooter в oSection.Footers oFooter.Range.Fields. Обновить следующий нижний колонтитул Следующий раздел  

  using System; using System.Collections.Generic; using System.IO; using Microsoft.Office.Interop.Word; class Program {static void Main (  строка [] аргументы) {Список  путь = новый Список  (аргументы);  строка filePathstr = string.Join ("", path.ToArray ()); //System.Windows.Forms.MessageBox.Show("filepathstr: "+ filePathstr);  строка folderPathstr = Path.GetDirectoryName (filePathstr); //System.Windows.Forms.MessageBox.Show("folderPathstr: "+ folderPathstr);  попробуйте {Application ap = new Application ();  Документ document = ap.Documents.Open (filePathstr);  document.Fields.Update ();  foreach (раздел раздела в document.Sections) {document.Fields.Update (); //обновляем каждый раздел HeadersFooters headers = section.Headers; //Получить все заголовки foreach (заголовок HeaderFooter в заголовках) {Fields fields = header.Range.Fields;  foreach (Поле поля в полях) {field.Update (); //обновляем все поля в заголовках}} HeadersFooters footers = section.Footers; //Получить все нижние колонтитулы foreach (нижний колонтитул HeaderFooter в нижних колонтитулах) {Fields fields = footer.Range.Fields;  foreach (Поле поля в полях) {field.Update (); //обновляем все поля в нижнем колонтитуле}}} document.Save ();  document.Close ();  } catch (NullReferenceException) {System.Windows.Forms.MessageBox.Show («Действительный файл не выбран.»);  }}}  

Для C #:

  using System; using System.Collections.Generic; using  System.IO; использование Microsoft.Office.Interop.Word; class Program {static void Main (string [] args) {List  path = new List  (args);  строка filePathstr = string.Join ("", path.ToArray ()); //System.Windows.Forms.MessageBox.Show("filepathstr: "+ filePathstr);  строка folderPathstr = Path.GetDirectoryName (filePathstr); //System.Windows.Forms.MessageBox.Show("folderPathstr: "+ folderPathstr);  попробуйте {Application ap = new Application ();  Документ document = ap.Documents.Open (filePathstr);  document.Fields.Update ();  foreach (раздел раздела в document.Sections) {document.Fields.Update (); //обновляем каждый раздел HeadersFooters headers = section.Headers; //Получить все заголовки foreach (заголовок HeaderFooter в заголовках) {Fields fields = header.Range.Fields;  foreach (поле поля в полях) {поле. Обновить(); //обновляем все поля в заголовках}} HeadersFooters footers = section.Footers; //Получить все нижние колонтитулы foreach (нижний колонтитул HeaderFooter в нижних колонтитулах) {Fields fields = footer.Range.Fields;  foreach (Поле поля в полях) {field.Update (); //обновляем все поля в нижнем колонтитуле}}} document.Save ();  document.Close ();  } catch (NullReferenceException) {System.Windows.Forms.MessageBox.Show («Действительный файл не выбран.»);  }}}