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

У цій публікації ми зосередимося на тому, щоб показати вам, як пакетно прийняти або відхилити всі зміни в кількох документах Word одночасно.

Легко прийняти або відхилити всі зміни в одному документі Word. Вам просто потрібно натиснути вкладку «Огляд», а потім натиснути кнопку, що розкривається, на команді «Прийняти» або «Відхилити». Далі виберіть «Прийняти всі зміни в документі» або «Відхилити всі зміни в документі».

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

Вставте форму користувача

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

Private Sub btnAccept_Click()
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)

  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nDocx = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nDocx)
        Set objDocx = ActiveDocument

        objDocx.AcceptAllRevisions
        objDocx.Save
        objDocx.Close
      Next nDocx
    Else
      MsgBox ("You need to select documents first!")
      Exit Sub
    End If
  End With
  MsgBox ("You have accepted all revisions in selected documents.")
  Set objDocx = Nothing

End Sub

13. Тепер повернімось до форми та натисніть на командну кнопку 2. Назвіть її як “btnReject”. І встановіть текст підпису як “Відхилити всі зміни в кількох документах”.
14. Подібним чином двічі клацніть на командній кнопці 2 та введіть такі коди:

Private Sub btnReject_Click()
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)  
    
  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nDocx = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nDocx)
        Set objDocx = ActiveDocument
              
        objDocx.RejectAllRevisions
        objDocx.Save
        objDocx.Close
      Next nDocx
    Else
      MsgBox ("You need to select documents first!")
      Exit Sub
    End If
  End With
  MsgBox ("You have rejected all revisions in selected documents.")
  Set objDocx = Nothing
End Sub

15. І далі натисніть на командну кнопку 3. Назвіть його як “btnClose” і встановіть підпис як “Close”.
16. Так само двічі клацніть на командну кнопку 3 і введіть коди:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Збережіть усі коди.

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

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

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Збережіть макрос. Ви можете призначити кнопку для цього макросу. Для детальних кроків ви можете перейти за цим посиланням для довідки: Як видалити форматування вставлених текстів за допомогою макросів та VBA у вашому слові
5. Запустіть макрос, щоб скомпонувати форму користувача. Клацніть або «Прийняти всі зміни в декількох документах», або «Відхилити всі зміни в кількох документах», і ви відкриєте вікно «Огляд». Виберіть документи та натисніть “OK”.

Ось результат:

Усунення корупції в документах

Втрата та витік даних відбувається постійно. Деякі з них можна запобігти, а інші просто трапляються. Тому необхідно взяти інструмент в руки виправити docx у надзвичайні ситуації. За допомогою такого інструменту вам не потрібно буде турбуватися про втрату даних.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі Виправлення в Excel та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com