Kako grupno prihvatiti ili odbiti sve promjene u više Word dokumenata

U ovom postu ćemo se fokusirati na to da vam pokažemo kako da grupno prihvatite ili odbacite sve promjene u više Word dokumenata istovremeno.

Lako je prihvatiti ili odbiti sve promjene u jednom Word dokumentu. Potrebno je samo da kliknete na karticu „Pregled“, a zatim na dugme padajućeg menija na komandi „Prihvati“ ili „Odbij“. Zatim odaberite “Prihvati sve promjene u dokumentu” ili “Odbij sve promjene u dokumentu”.

Što onda ako postoji više dokumenata s promjenama koje želite prihvatiti ili odbiti u grupi? Da bismo izvršili takav zadatak, trebat će nam sljedeći makro.

Umetnite korisnički obrazac

1. Prvo pritisnite “Alt+ F11” da otvorite VBA editor u Wordu.
2. Drugo, kliknite na "Normalno".
3. Zatim kliknite na “Insert” na traci menija.
4. U tom meniju izaberite „Korisnički obrazac“.
5. Kliknite na ručke oko obrasca da biste mu pravilno promijenili veličinu.
6. Pritisnite “F4” da otvorite “Prozor sa svojstvima” u lijevom donjem uglu.
7. Zatim nazovite obrazac kao “frmAcceptOrRejectChanges” i postavite njegov naslov kao “Accept/Reject Changes”. Osim toga, postavite “ShowModal” kao “False”.
8. Zatim kliknite na “Toolbox” na traci menija.
9. Koristite kontrole na kutiji sa alatkama da kreirate 3 komandna dugmeta i oznaku i postavite ih takvim redosledom:
10. Sada kliknite na labelu da aktivirate prozor sa svojstvima. Postavite njegov naslov kao "Da li želite:". Preporučljivo je postaviti pozadinu naljepnice kao prozirnu. Osim toga, možete podesiti boju i veličinu fonta kako želite.
11. Zatim kliknite na komandno dugme 1. Imenujte ga kao “btnAccept”. Postavite naslov kao "Prihvati sve promjene u više dokumenata".
12. Zatim dvaput kliknite na komandno dugme 1 i unesite sledeće kodove:

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. Sada se vratite na formu i kliknite na komandno dugme 2. Imenujte ga kao “btnReject”. I postavite tekst naslova kao "Odbij sve promjene u više dokumenata".
14. Slično, dvaput kliknite na komandno dugme 2 i unesite ove kodove:

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. Zatim kliknite na komandno dugme 3. Imenujte ga kao “btnClose” i postavite naslov kao “Close”.
16. Isto tako, dvaput kliknite na komandno dugme 3 i ukucajte kodove:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Sačuvajte sve kodove.

Umetnite modul

1. Za početak ponovite gore navedene korake 2 i 3.
2. I ovog puta odaberite “Modul”.
3. Dvaput kliknite za ulazak u novi modul i unesite ovaj makro:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Sačuvajte makro. Možete odabrati da dodijelite dugme za ovaj makro. Za detaljne korake, možete pratiti ovaj link za referencu: Kako ukloniti formatiranje zalijepljenih tekstova pomoću makroa i VBA u Wordu
5. Pokrenite makro za podešavanje korisničkog obrasca. Kliknite ili "Prihvati sve promjene u više dokumenata" ili "Odbij sve promjene u više dokumenata" i otvorit ćete prozor "Pregledaj". Odaberite dokumente i kliknite na “OK”.

Evo rezultata:

Rukovati korupcijom dokumenata

Gubitak podataka i curenje se dešavaju stalno. Neki od njih se mogu spriječiti, dok se drugi samo javljaju. Stoga je potrebno nabaviti alat za popraviti docx u vanrednim situacijama. Sa takvim alatom nećete morati da brinete o gubitku podataka.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Excel fix i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com