Как групово да приемате или отхвърляте всички промени в множество документи на Word

В тази публикация ще се съсредоточим върху това да ви покажем как да приемате или отхвърляте всички промени в множество Word документи едновременно.

Лесно е да приемете или отхвърлите всички промени в един документ на Word. Трябва само да щракнете върху раздела „Преглед“, след което щракнете върху падащия бутон на командата „Приемам“ или „Отхвърляне“. След това изберете „Приемане на всички промени в документа“ или „Отхвърляне на всички промени в документа“.

Тогава какво, ако има множество документи с промени, които искате да приемете или отхвърлите в пакет? За да изпълним такава задача, ще ни е необходим следният макрос.

Поставете потребителски формуляр

1. Първо, натиснете „Alt + F11“, за да отворите редактора на VBA в Word.
2. Второ, щракнете върху „Нормално“.
3. След това щракнете върху „Вмъкване“ в лентата с менюта.
4. Изберете „UserForm“ от това меню.
5. Щракнете върху дръжките около формуляра, за да го преоразмерите правилно.
6. Натиснете „F4“, за да изведете „Прозорец за свойства“ в левия ъгъл надолу.
7. След това наименувайте формуляра като „frmAcceptOrRejectChanges“ и задайте заглавието му като „Accept / Reject Changes“. Освен това задайте “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