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

Короткий ответ — нет, это невозможно сделать. Функция отслеживания изменений либо включена, либо отключена для всего документа. Это означает, что у вас есть только пара вариантов. Первый вариант — сделать дату в нижнем колонтитуле статической, чтобы она не менялась. Вы можете заменить его текстом (вместо использования поля), а затем просто не забудьте обновить дату в качестве одного из последних шагов перед завершением или печатью документа.

Другой вариант — всегда принимать изменение нижнего колонтитула всякий раз, когда вы открываете файл в Word. Просто щелкните дату в нижнем колонтитуле правой кнопкой мыши и выберите «Принять изменение».

Еще один вариант — использовать макрос для фактического сохранения документа (если это момент, когда обновляется нижний колонтитул). Следующий макрос выполняет несколько задач и может быть назначен кнопке панели инструментов для простоты использования. Сначала он проходит через все нижние колонтитулы в документе и обновляет все поля в нижних колонтитулах. Затем он принимает любые изменения в этих нижних колонтитулах. Наконец, он сохраняет документ.

Sub Save_NoFooterRevisions()

Dim rFooter As Range     Dim iSectCount As Integer     Dim j As Integer

iSectCount = ActiveDocument.Sections.Count

For j = 1 To iSectCount         Set rFooter = ActiveDocument.Sections(j) _           .Footers(wdHeaderFooterPrimary).Range         With rFooter             .Fields.Update             .Revisions.AcceptAll         End With         Set rFooter = ActiveDocument.Sections(j) _           .Footers(wdHeaderFooterEvenPages).Range         With rFooter             .Fields.Update             .Revisions.AcceptAll         End With         Set rFooter = ActiveDocument.Sections(j) _           .Footers(wdHeaderFooterFirstPage).Range         With rFooter             .Fields.Update             .Revisions.AcceptAll         End With     Next j     ActiveDocument.Save End Sub

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (10807) применим к Microsoft Word 2007, 2010, 2013 и 2016. Вы можете найти версию этого совета для старого интерфейса меню Word здесь:

link: / word-Turning_Track_Changes_Off_for_Selected_Areas [Отключение отслеживания изменений для выбранных областей].