Ako je možné hromadne prijať alebo odmietnuť všetky zmeny vo viacerých dokumentoch programu Word

V tomto príspevku sa zameriame na to, ako vám ukázať spôsob hromadného prijatia alebo odmietnutia všetkých zmien vo viacerých dokumentoch programu Word súčasne.

Je ľahké prijať alebo odmietnuť všetky zmeny v jednom dokumente Word. Musíte len kliknúť na kartu „Skontrolovať“ a potom kliknúť na rozbaľovacie tlačidlo na príkaz „Prijať“ alebo „Odmietnuť“. Ďalej zvoľte „Prijať všetky zmeny v dokumente“ alebo „Odmietnuť všetky zmeny v dokumente“.

Čo potom, ak existuje viac dokumentov so zmenami, ktoré chcete hromadne prijať alebo odmietnuť? Na splnenie tejto úlohy budeme potrebovať nasledujúce makro.

Vložte užívateľský formulár

1. Najskôr stlačte kombináciu klávesov „Alt + F11“ a otvorte editor VBA v programe Word.
2. Potom kliknite na „Normálny“.
3. Potom kliknite na paneli s ponukami na „Vložiť“.
4. V tejto ponuke zvoľte možnosť „UserForm“.
5. Ak chcete správne zmeniť veľkosť formulára, kliknite na jeho rukoväte.
6. Stlačením klávesu „F4“ otvorte „Okno vlastností“ v ľavom dolnom rohu.
7. Potom pomenujte formulár ako „frmAcceptOrRejectChanges“ a nastavte jeho titulok ako „Accept / Reject Changes“. Okrem toho nastavte „ShowModal“ na „False“.
8. Ďalej kliknite na paneli nástrojov na paneli s ponukami.
9. Pomocou ovládacích prvkov na paneli nástrojov vytvorte 3 príkazové tlačidlá a štítok a umiestnite ich v takom poradí:
10. Teraz kliknite na štítok, aby ste aktivovali jeho okno vlastností. Nastavte jeho titulok ako „Chcete:“. Odporúča sa nastaviť pozadie štítku ako priehľadné. Okrem toho môžete ľubovoľne nastaviť farbu a veľkosť písma.
11. Ďalej kliknite na príkazové tlačidlo 1. Pomenujte ho ako „btnAccept“. Nastavte titulok ako „Prijať všetky zmeny vo viacerých dokumentoch“.
12. Potom dvakrát kliknite na príkazové tlačidlo 1 a zadajte nasledujúce kódy:

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. Teraz späť do formulára a kliknite na príkazové tlačidlo 2. Pomenujte ho ako „btnReject“. A nastavte text titulku na „Odmietnuť všetky zmeny vo viacerých dokumentoch“.
14. Podobne dvakrát kliknite na príkazové tlačidlo 2 a zadajte tieto kódy:

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. A potom kliknite na príkazové tlačidlo 3. Pomenujte ho ako „btnClose“ a nastavte titulok ako „Zavrieť“.
16. Rovnako tak dvakrát kliknite na príkazové tlačidlo 3 a zadajte kódy:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Uložte všetky kódy.

Vložte modul

1. Na začiatok zopakujte kroky 2 a 3 vyššie.
2. A tentokrát zvoľte „Modul“.
3. Dvojitým kliknutím otvorte nový modul a zadajte toto makro:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Uložte makro. K tomuto makru môžete zvoliť priradenie tlačidla. Podrobné kroky nájdete v tomto odkaze ako referencia: Ako odstrániť formátovanie vložených textov pomocou makra a VBA vo vašom slove
5. Spustením makra upravte formulár používateľa. Kliknite na možnosť „Prijať všetky zmeny vo viacerých dokumentoch“ alebo „Odmietnuť všetky zmeny vo viacerých dokumentoch“ a aktivuje sa okno „Prechádzať“. Vyberte dokumenty a kliknite na „OK“.

Tu je výsledok:

Riešenie korupcie dokumentov

Strata a únik údajov sa deje neustále. Niektorým z nich sa dá zabrániť, zatiaľ čo iným sa iba vyskytujú. Preto je potrebné zohnať nejaký nástroj opraviť docx v čase núdze. S takýmto nástrojom sa nebudete musieť obávať straty údajov.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane Oprava programu Excel a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S