Перейти до основного матеріалу

Як прийняти зміни формату доріжки лише в документі Word?

Якщо у вас є документ Word, який перебуває в режимі змін доріжок, під час застосування Прийняти всі зміни всі зміни доріжки будуть прийняті. Але, іноді, ви просто хочете прийняти зміни форматування доріжки, не приймаючи вставки чи видалення. У цій статті мова піде про те, як вирішити це завдання в документі Word.

Приймайте лише зміни доріжок форматування в Word із кодом VBA

Приймайте лише зміни форматування доріжок у програмі Word із функцією Показати розмітку


Приймайте лише зміни доріжок форматування в Word із кодом VBA

Наступний код VBA може допомогти вам прийняти зміни форматування доріжки лише у документі Word. Будь ласка, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. А потім натисніть Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль:

Код 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 із функцією Показати розмітку

У документі Word ви також можете застосувати файл Показати розмітку функцію, щоб закінчити цю роботу, виконайте такі дії:

1. У файлі режиму зміни доріжки натисніть Розгляд > Показати розмітку, а потім зніміть прапорець Коментарі та Вставки та видалення і залиште форматування параметр позначений, див. знімок екрана:

doc приймає форматування 2

2. І тепер ви просто можете побачити відслідковувані зміни форматування, а потім натисніть клавішу Розгляд > Прийняти > Прийняти всі показані зміни як показано на наступному скріншоті:

doc приймає форматування 3

3. І всі зміни форматування доріжки прийняті, тепер вам потрібно повернутися до коментар, Вставки та видалення параметри, перевіривши їх з Показати розмітку випадаючий список, див. знімок екрана:

doc приймає форматування 4

4. Тепер ви можете бачити, що зміни форматування доріжки прийняті, а інші зміни доріжки все ще зберігаються, див. Знімок екрана:

doc приймає форматування 1

Найкращі інструменти продуктивності офісу

Kutools для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!

🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту  /  Переписати текст  /  Узагальнити документи  /  Звертайтеся за інформацією на основі Документа, все в Word

📘 Майстерність документів: Розділити сторінки  /  Об’єднати документи  /  Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...)  /  Пакетне перетворення в PDF  /  Експортувати сторінки як зображення  /  Друк кількох файлів одночасно...

Редагування змісту: Пакетний пошук та заміна між кількома файлами  /  Змінити розмір усіх зображень  /  Транспонування рядків і стовпців таблиці  /  Перетворити таблицю в текст...

🧹 Очищення без зусиль: Змітати Зайві простори  /  Розбиття розділів  /  Усі заголовки  /  Текстові поля  /  Гіперпосилання  / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...

Творчі вставки: Вставити Роздільники тисяч  /  Прапорці  /  радіо кнопки  /  QR-код  /  Штрих-код  /  Таблиця діагональних ліній  /  Заголовок рівняння  /  Підпис зображення  /  Заголовок таблиці  /  Кілька зображень  / Дізнайтеся більше в Вставити групу...

???? Точність вибору: Точне визначення конкретні сторінки  /  Таблиці  /  форми  /  заголовок абзаців  / Покращте навігацію за допомогою більше Виберіть функції...

Покращення зірок: Швидка навігація до будь-якого місця  /  автоматичне вставлення повторюваного тексту  /  плавно перемикатися між вікнами документів  /  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