Как да приемете промените в проследяването от конкретен потребител в документ на Word?
Да предположим, че имате документ на Word, прегледан от множество лица, както е показано на следната екранна снимка. Сега просто трябва да приемете промените в песента от едно конкретно лице. Как може да се реши тази задача в Word документ?
Приемане на промени в проследяването от конкретен потребител в Word
Приемане на промени в записа от един конкретен потребител с VBA код
Приемане на промени в проследяването от конкретен потребител в Word
За да приемете промените в песента само от един потребител, the Показване на маркиране функцията в 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 ключ за стартиране на този код и само промените в записа от рецензента, който сте посочили в кода, са приети, вижте екранна снимка:
Най-добрите инструменти за продуктивност в офиса
Kutools за Word - Подобрете своя Word опит с Over 100 Забележителни функции!
🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание / Пренаписване на текст / Обобщаване на документи / Запитване за информация въз основа на Документ, всичко това в Word
📘 Владеене на документи: Разделяне на страници / Обединяване на документи / Експортиране на селекция в различни формати (PDF/TXT/DOC/HTML...) / Пакетно конвертиране в PDF / Експортиране на страници като изображения / Отпечатайте няколко файла наведнъж...
✏ Редактиране на съдържанието: Пакетно намиране и замяна в множество файлове / Преоразмеряване на всички снимки / Транспониране на редовете и колоните на таблицата / Преобразуване на таблица в текст...
🧹 Почистване без усилие: Изметете Допълнителни пространства / Прекъсвания на раздели / Всички заглавки / Текстови полета / Хипервръзки / За повече инструменти за премахване се насочете към нашия Премахване на група...
➕ Творчески вложки: Вмъкване Хилядни разделители / Квадратчета / Радио бутони / QR Code / Баркод / Таблица с диагонални линии / Надпис на уравнение / Надпис на изображението / Надпис на таблица / Множество снимки / Открийте повече в Вмъкване на група...
🔍 Прецизни селекции: Точна точка конкретни страници / таблици / форми / заглавни параграфи / Подобрете навигацията с още Изберете функции...
⭐ Звездни подобрения: Навигирайте бързо до всяко място / автоматично вмъкване на повтарящ се текст / безпроблемно превключване между прозорците на документи / 11 Инструменти за конвертиране...