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

V tejto strost, zameriame sa na to, aby sme vám ukázali spôsob hromadného prijímania alebo odmietania všetkých zmien vo viacerých dokumentoch Wordu 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.SelectedIt ActiveDocument objDocx.AcceptAllRevisions objDocx.Save objDocx.Close Ďalej nDocx Else MsgBox („Najprv musíte vybrať dokumenty!“) Ukončiť Podkoniec Ak Koniec MsgBox („Prijali ste všetky revízie vo vybratých dokumentoch.“) Nastaviť objDocx = Nič Koniec 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:

Súkromný sub btnReject_Click () Nastaviť dlgFile = Application.FileDialog (msoFileDialogFilePicker) s dlgFile dlgFile.AllowMultiSelect = True If .Show = -1 Potom Pre nDocx = 1 To dlgFile.SelectedItems.Count Documents.Open dlgFile.SelectedIt = ActiveDocument objDocx.RejectAllRevisions objDocx.Save objDocx.Close Ďalej nDocx Else MsgBox („Najprv musíte vybrať dokumenty!“) Ukončiť Podkoniec Ak Koniec MsgBox („Odmietli ste všetky revízie vo vybratých dokumentoch.“) Nastaviť objDocx = Nič Koniec 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:

Súkromné ​​sub btnClose_Click () Vyložiť ma Koniec 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