Перейти к основному содержанию

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

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

Принимать только форматирование изменений дорожки в Word с кодом VBA

Принимать только изменения дорожки форматирования в Word с помощью функции Показать разметку


Принимать только форматирование изменений дорожки в 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 немедленно. Смотрите скриншот:

документ принять форматирование 1


Принимать только изменения дорожки форматирования в Word с помощью функции Показать разметку

В документе Word вы также можете применить Показать разметку Чтобы завершить эту работу, выполните следующие действия:

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

документ принять форматирование 2

2. И теперь вы можете просто увидеть отслеживаемые изменения форматирования, а затем нажмите Обзор > Принять > Принять все показанные изменения как показано на следующем скриншоте:

документ принять форматирование 3

3. И все изменения форматирования дорожки приняты, теперь вам нужно вернуться на КОММЕНТАРИЙ, Вставки и удаления варианты, выбрав их из Показать разметку выпадающий список, см. снимок экрана:

документ принять форматирование 4

4. Теперь вы можете видеть, что изменения дорожки форматирования были приняты, а другие изменения дорожки все еще сохраняются, см. Снимок экрана:

документ принять форматирование 1

Лучшие инструменты для офисной работы

Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент  /  Переписать текст  /  Обобщение документов  /  Запросить информацию на основе документа, все в Word

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

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

🧹 Легкая очистка: Убрать Дополнительные места  /  Разрывы разделов  /  Все заголовки  /  Текстовые поля  /  Гиперссылки  / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...

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

???? Точный выбор: Точно определить конкретные страницы  /  Эта таблица  /  формы  /  заголовки абзацев  / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...

Звездные улучшения: Быстро перемещайтесь в любое место  /  автоматическая вставка повторяющегося текста  /  плавно переключаться между окнами документов  /  11 инструментов преобразования...

👉 Хотите попробовать эти функции? Kutools for Word предлагает 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