Как принять исправления, внесённые только одним конкретным пользователем, в документе Word?

Предположим, у вас есть документ Word, который был проверен несколькими людьми, как показано на следующем снимке экрана. Теперь вам нужно принять только исправления от одного конкретного человека. Как выполнить эту задачу в документе Word?

Принятие исправлений от одного конкретного пользователя в Word

Принятие исправлений от одного конкретного пользователя с помощью кода VBA

---

Принятие исправлений от одного конкретного пользователя в Word

Чтобы принять исправления только от одного пользователя, воспользуйтесь функцией Показать пометкив Word, как описано ниже:

1. Откройте файл Word с исправлениями, затем выберите Рецензирование > Показать пометки > Конкретные лица и снимите флажок Все рецензенты, чтобы скрыть все пометки (см. снимок экрана):

2. Затем снова щелкните Показать пометки > Конкретные лица и установите флажок напротив того рецензента, чьи исправления вы хотите принять (см. снимок экрана):

3. После этого нажмите Принять > Принять все отображаемые изменения (см. снимок экрана):

4. Теперь исправления только от этого конкретного пользователя приняты (см. снимок экрана):

5. Наконец, чтобы снова отобразить исправления других рецензентов, щелкните Показать пометки > Конкретные лица и установите флажок Все рецензенты (см. следующий снимок экрана):

---

Принятие исправлений от одного конкретного пользователя с помощью кода VBA

Если описанный выше способ покажется вам слишком сложным, воспользуйтесь простым макросом VBA — он легко справится с этой задачей. Выполните следующие действия:

1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. Щелкните Вставка > Модуль и вставьте приведённый ниже макрос в окно модуля.

Код VBA: принятие исправлений от одного пользователя:

Sub Acceptoneuser()
    For Each xChange In ActiveDocument.Revisions
        If xChange.Author = "RubyMie" Then
            xChange.Accept
        End If
    Next
End Sub

Примечание: в приведённом выше коде замените имя пользователя «RubyMie» на своё.

3. Затем нажмите клавишу F5, чтобы запустить этот код. Применятся только исправления от рецензента, указанного в коде (см. снимок экрана):