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

В этом пost, мы сосредоточимся на том, чтобы показать вам способ пакетного принятия или отклонения всех изменений в нескольких документах Word одновременно.

Легко принять или отклонить все изменения в одном документе Word. Вам просто нужно щелкнуть вкладку «Обзор», затем нажать кнопку раскрывающегося списка на команду «Принять» или «Отклонить». Затем выберите «Принять все изменения в документе» или «Отклонить все изменения в документе».

А что, если есть несколько документов с изменениями, которые вы хотите принять или отклонить в пакетном режиме? Для выполнения такой задачи нам понадобится следующий макрос.

Вставьте форму пользователя

1. Прежде всего, нажмите «Alt + F11», чтобы открыть редактор VBA в Word.
2. Во-вторых, нажмите «Обычный».
3. Затем нажмите «Вставить» в строке меню.
4. Выберите «Пользовательская форма» в этом меню.
5. Нажмите на маркеры вокруг формы, чтобы правильно изменить ее размер.
6. Нажмите «F4», чтобы открыть «Окно свойств» в левом нижнем углу.
7. Затем назовите форму как «frmAcceptOrRejectChanges» и установите ее заголовок как «Принять/отклонить изменения». Кроме того, установите «ShowModal» как «False».
8. Затем нажмите «Панель инструментов» в строке меню.
9. Используйте элементы управления на панели инструментов, чтобы создать 3 командные кнопки и метку и расположите их в таком порядке:
10. Теперь нажмите на метку, чтобы активировать окно ее свойств. Установите его заголовок как «Вы хотите:». Рекомендуется установить фон этикетки прозрачным. Кроме того, вы можете установить цвет и размер шрифта по своему усмотрению.
11. Затем нажмите командную кнопку 1. Назовите ее «btnAccept». Установите заголовок как «Принять все изменения в нескольких документах».
12. Затем дважды щелкните командную кнопку 1 и введите следующие коды:

Private Sub btnAccept_Click() Установить dlgFile = Application.FileDialog(msoFileDialogFilePicker) С dlgFile dlgFile.AllowMultiSelect = True Если .Show = -1 Тогда для nDocx = 1 To dlgFile.SelectedItems.Count Documents.Open dlgFile.SelectedItems(nDocx) Установить objDocx = ActiveDocument objDocx.AcceptAllRevisions objDocx.Save objDocx.Close Next nDocx Else MsgBox («Сначала нужно выбрать документы!») Exit Sub End If End With MsgBox («Вы приняли все исправления в выбранных документах».) Set objDocx = Nothing End Саб

13. Теперь вернитесь к форме и нажмите на командную кнопку 2. Назовите ее «btnReject». И установите текст заголовка как «Отклонить все изменения в нескольких документах».
14. Точно так же дважды щелкните командную кнопку 2 и введите следующие коды:

Private Sub btnReject_Click() Установить dlgFile = Application.FileDialog(msoFileDialogFilePicker) С dlgFile dlgFile.AllowMultiSelect = True Если .Show = -1 Тогда для nDocx = 1 To dlgFile.SelectedItems.Count Documents.Open dlgFile.SelectedItems(nDocx) Установить objDocx = ActiveDocument objDocx.RejectAllRevisions objDocx.Save objDocx.Close Next nDocx Else MsgBox («Сначала нужно выбрать документы!») Exit Sub End If End With MsgBox («Вы отклонили все исправления в выбранных документах».) Set objDocx = Nothing End Саб

15. Затем нажмите командную кнопку 3. Назовите ее «btnClose» и установите заголовок «Закрыть».
16. Аналогичным образом дважды щелкните командную кнопку 3 и введите коды:

Приватная подписка btnClose_Click() Выгрузить меня End Sub

17. Сохраните все коды.

Вставить модуль

1. Для начала повторите шаги 2 и 3 выше.
2. И на этот раз выберите «Модуль».
3. Дважды щелкните, чтобы войти в новый модуль и введите этот макрос:

Sub ShowAcceptOrRejectForm() frmAcceptOrRejectRevisions.Show End Sub

4. Сохраните макрос. Вы можете назначить кнопку для этого макроса. Для получения подробных инструкций вы можете перейти по этой ссылке для справки: Как удалить форматирование вставленных текстов с помощью макроса и VBA в вашем Word
5. Запустите макрос, чтобы настроить пользовательскую форму. Нажмите «Принять все изменения в нескольких документах» или «Отклонить все изменения в нескольких документах», и вы вызовете окно «Обзор». Выберите документы и нажмите «ОК».

Вот результат:

Обработка коррупции документа

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

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая Исправление Excel pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com