Прескочи на основното съдържание

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

Автор: Xiaoyang Последна промяна: 2018-09-19

Ако имате документ на Word, който е в режим на проследяване на промените, когато приложите Приемам всички промени функция, всички промени в песента ще бъдат приети. Но понякога просто искате да приемете промените във форматирането, без да приемате вмъкванията или изтриванията. Тази статия ще говори за това как да решите тази задача в документ на Word.

Приемайте само промените при форматиране в Word с VBA код

Приемане само на промените при форматиране в Word с функцията Show Markup


Приемайте само промените при форматиране в Word с VBA код

Следният VBA код може да ви помогне да приемете промените във форматирането само в документ на Word, моля, направете следното:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. И след това щракнете Поставете > Модули, копирайте и поставете кода по-долу в отворения празен модул:

Код на VBA: Приемайте промените на проследяването на формата само в документ на Word

Sub AcceptFormatChanges()
    Dim xRev As Revision
    For Each xRev In ActiveDocument.Revisions
        If Left(xRev.FormatDescription, 10) = "Formatted:" Then
            xRev.Accept
        End If
    Next
End Sub

3. И след това натиснете F5 ключ за изпълнение на този код и само промените във форматиращата песен са приети незабавно в активния документ на Word. Вижте екранна снимка:

doc приема форматиране 1


Приемане само на промените при форматиране в Word с функцията Show Markup

В документ на Word можете също да приложите Показване на маркиране функция, за да завършите тази работа, моля, изпълнете следните стъпки:

1. Щракнете върху файла с режима на промяна на песента Оценки на посетители > Показване на маркиранеи след това премахнете отметката от Коментари намлява Вмъквания и изтривания опции и оставете Форматиране опцията е отметната, вижте екранната снимка:

doc приема форматиране 2

2. И сега просто можете да видите проследените промени във форматирането, след което продължете да щраквате Оценки на посетители > приемам > Приемете всички показани промени както е показана следната екранна снимка:

doc приема форматиране 3

3. И всички промени в песента за форматиране са приети, сега трябва да се върнете на коментар, Вмъквания и изтривания опции, като ги отметнете от Показване на маркиране падащ списък, вижте екранната снимка:

doc приема форматиране 4

4. Сега можете да видите, че промените в песента за форматиране са приети, а други промени в песента все още се запазват, вижте екранната снимка:

doc приема форматиране 1

Най-добрите инструменти за продуктивност в офиса

Kutools за Word - Подобрете своя Word опит с Over 100 Забележителни функции!

🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание  /  Пренаписване на текст  /  Обобщаване на документи  /  Запитване за информация въз основа на Документ, всичко това в Word

📘 Владеене на документи: Разделяне на страници  /  Обединяване на документи  /  Експортиране на селекция в различни формати (PDF/TXT/DOC/HTML...)  /  Пакетно конвертиране в PDF  /  Експортиране на страници като изображения  /  Отпечатайте няколко файла наведнъж...

Редактиране на съдържанието: Пакетно намиране и замяна в множество файлове  /  Преоразмеряване на всички снимки  /  Транспониране на редовете и колоните на таблицата  /  Преобразуване на таблица в текст...

🧹 Почистване без усилие: Изметете Допълнителни пространства  /  Прекъсвания на раздели  /  Всички заглавки  /  Текстови полета  /  Хипервръзки  / За повече инструменти за премахване се насочете към нашия Премахване на група...

Творчески вложки: Вмъкване Хилядни разделители  /  Квадратчета  /  Радио бутони  /  QR Code  /  Баркод  /  Таблица с диагонални линии  /  Надпис на уравнение  /  Надпис на изображението  /  Надпис на таблица  /  Множество снимки  / Открийте повече в Вмъкване на група...

🔍 Прецизни селекции: Точна точка конкретни страници  /  таблици  /  форми  /  заглавни параграфи  / Подобрете навигацията с още Изберете функции...

Звездни подобрения: Навигирайте бързо до всяко място  /  автоматично вмъкване на повтарящ се текст  /  безпроблемно превключване между прозорците на документи  /  11 Инструменти за конвертиране...

👉 Искате ли да изпробвате тези функции? Kutools за Word предлага a 60-дневен безплатен пробен период, без ограничения! ????
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Vous êtes mon héros. En français, le code serait le suivant:

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If Left(xRev.FormatDescription, 12) = "Mis en forme" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Dans toutes les langues :

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If xRev.FormatDescription <> "" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations