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

U ovom postu ćemo se usredotočiti na to kako vam pokazati kako istovremeno prihvatiti ili odbiti sve promjene u više Word dokumenata.

Lako je prihvatiti ili odbiti sve promjene u jednom Word dokumentu. Samo trebate kliknuti karticu "Pregled", a zatim kliknuti padajući gumb na naredbu "Prihvati" ili "Odbaci". Zatim odaberite "Prihvati sve promjene u dokumentu" ili "Odbaci sve promjene u dokumentu".

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

Umetnite korisnički obrazac

1. Prvo pritisnite “Alt+ F11” da biste otvorili VBA editor u Wordu.
2. Drugo, kliknite "Normalno".
3. Zatim kliknite "Umetni" na traci izbornika.
4. Odaberite "Korisnički obrazac" na tom izborniku.
5. Pritisnite ručke oko obrasca da biste mu ispravno promijenili veličinu.
6. Pritisnite “F4” da biste otvorili “Prozor svojstava” u lijevom donjem kutu.
7. Zatim nazovite obrazac kao “frmAcceptOrRejectChanges” i postavite njegov naslov kao “Prihvati/Odbaci promjene”. Osim toga, postavite “ShowModal” na “False”.
8. Zatim kliknite "Toolbox" na traci izbornika.
9. Upotrijebite kontrole na kutiji s alatima kako biste izradili 3 naredbena gumba i oznaku te ih rasporedili ovim redoslijedom:
10. Sada kliknite na oznaku da biste aktivirali prozor njezinih svojstava. Postavite naslov kao "Želite li:". Preporuča se postaviti prozirnu pozadinu naljepnice. Osim toga, možete postaviti boju i veličinu fonta kako želite.
11. Zatim kliknite na naredbeni gumb 1. Imenujte ga kao “btnAccept”. Postavite naslov kao "Prihvati sve promjene u više dokumenata".
12. Zatim dvaput kliknite na naredbeni gumb 1 i unesite sljedeć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 obrazac i kliknite na naredbeni gumb 2. Imenujte ga kao “btnReject”. I postavite tekst naslova kao "Odbaci sve promjene u više dokumenata".
14. Slično, dvaput kliknite na naredbeni gumb 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 naredbeni gumb 3. Imenujte ga kao “btnClose” i postavite naslov kao “Close”.
16. Isto tako, dvaput kliknite na naredbeni gumb 3 i upišite kodove:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Sačuvajte sve kodove.

Umetnite modul

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

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Spremite makronaredbu. Možete odlučiti dodijeliti gumb za ovu makronaredbu. Za detaljne korake možete slijediti ovu vezu kao referencu: Kako ukloniti oblikovanje zalijepljenih tekstova s ​​makronaredbom i VBA u vašem Wordu
5. Pokrenite makronaredbu da namjestite korisnički obrazac. Kliknite ili “Prihvati sve promjene u više dokumenata” ili “Odbaci sve promjene u više dokumenata” i pokrenut ćete prozor “Pregledaj”. Odaberite dokumente i kliknite "U redu".

Evo rezultata:

Rješavanje oštećenja dokumenata

Gubitak i curenje podataka događa se cijelo vrijeme. Neki od njih se mogu spriječiti, dok drugi samo nastanu. Stoga je potrebno nabaviti alat za popraviti docx u vrijeme nužde. S takvim alatom nećete morati brinuti o gubitku podataka.

Uvod za autora:

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