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

Ответ зависит от версии Word, которую вы используете. Если вы используете Word 97 или Word 2000, ответ — нет, вы не можете. Все, что вы можете сделать, это либо проработать изменения по отдельности, либо принять или отклонить их все. Если вы используете Word 2002 или Word 2003, все обстоит иначе; все, что вам нужно сделать, это выполнить следующие действия:

  1. Убедитесь, что отображается панель инструментов «Рецензирование». (Выберите Просмотр | Панели инструментов | Просмотр.)

  2. На панели инструментов «Рецензирование» выберите «Рецензенты» в меню «Показать». Word отображает список рецензентов, которые внесли свой вклад в документ.

  3. Выберите имя рецензента, чьи изменения вы не хотите видеть. Галочка рядом с именем рецензента исчезнет.

  4. Повторите шаги 2 и 3 для каждого рецензента, чьи изменения вы не хотите видеть. Когда вы закончите, единственный рецензент, который должен быть «видимым» (помечен галочкой рядом с именем), — это тот, чьи изменения вы хотите принять.

  5. Щелкните стрелку вниз рядом с инструментом «Принять». Word отображает раскрывающееся меню.

  6. Выберите «Принять все показанные изменения». Word принимает все показанные изменения, то есть только изменения, внесенные одним рецензентом.

Если вы используете версию Word до Word 2002, вы можете попробовать использовать макрос для принятия изменений, внесенных конкретным автором. Однако из-за того, что VBA работает за кулисами, вам нужно будет тщательно протестировать макрос в своей версии Word, чтобы убедиться, что он работает должным образом.

Следующий макрос будет проходить через все изменения, внесенные в документ, сравнивая имя, связанное с каждым изменением, с именем рецензента, чьи изменения вы хотите сохранить. Все, что вам нужно сделать, это заменить «authorname» на имя рецензента. Вы можете узнать имя рецензента, наведя указатель мыши на изменение, внесенное этим рецензентом. Когда вы это сделаете, Word отобразит небольшое желтое поле, похожее на всплывающую подсказку, которое содержит (среди прочего) имя рецензента; просто введите то же имя в макрос.

Sub ReviewAuthor()

For Each oChange In ActiveDocument.Revisions         If oChange.Author = "authorname" Then             oChange.Accept         End If     Next End Sub

_Примечание: _

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

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1639) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Select_All_Changes_by_a_Particular_Reviewer [Выбрать все изменения, сделанные определенным рецензентом].