Kako paketno sprejeti ali zavrniti vse spremembe v več besednih dokumentih

V tej objavi se bomo osredotočili na to, kako vam pokazati, kako lahko hkrati sprejmete ali zavrnete vse spremembe v več dokumentih Word.

Vse spremembe v enem Wordovem dokumentu je enostavno sprejeti ali zavrniti. Preprosto kliknite zavihek »Pregled« in nato spustni gumb na ukaz »Sprejmi« ali »Zavrni«. Nato izberite »Sprejmi vse spremembe v dokumentu« ali »Zavrni vse spremembe v dokumentu«.

Kaj potem, če je v paketu več dokumentov s spremembami, ki jih želite sprejeti ali zavrniti? Za izvedbo take naloge bomo potrebovali naslednji makro.

Vstavite uporabniški obrazec

1. Najprej pritisnite “Alt + F11”, da odprete urejevalnik VBA v Wordu.
2. Drugič, kliknite »Običajno«.
3. Nato v menijski vrstici kliknite »Vstavi«.
4. V tem meniju izberite “UserForm”.
5. Kliknite ročice okoli obrazca, da ga pravilno spremenite.
6. Pritisnite “F4”, da odprete okno z lastnostmi v levem spodnjem kotu.
7. Nato obrazec poimenujte kot »frmAcceptOrRejectChanges«, njegov napis pa nastavite kot »Sprejmi / zavrni spremembe«. Poleg tega nastavite “ShowModal” kot “False”.
8. Nato v menijski vrstici kliknite »Toolbox«.
9. S kontrolniki na orodjarni ustvarite 3 ukazne gumbe in nalepko ter jih postavite v tak vrstni red:
10. Zdaj kliknite na etiketo, da aktivirate njeno okno lastnosti. Nastavite njegov napis kot »Ali želite:«. Priporočljivo je, da ozadje nalepke nastavite kot prozorno. Poleg tega lahko poljubno nastavite barvo in velikost pisave.
11. Nato kliknite na ukazni gumb 1. Poimenujte ga kot “btnAccept”. Nastavite napis kot »Sprejmi vse spremembe v več dokumentih«.
12. Nato dvokliknite ukazni gumb 1 in vnesite naslednje kode:

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. Zdaj se vrnite v obrazec in kliknite na ukazni gumb 2. Poimenujte ga kot “btnReject”. In nastavite besedilo napisa kot »Zavrni vse spremembe v več dokumentih«.
14. Podobno dvokliknite ukazni gumb 2 in vnesite te kode:

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. In nato kliknite na ukazni gumb 3. Poimenujte ga kot “btnClose” in nastavite napis kot “Close”.
16. Prav tako dvokliknite ukazni gumb 3 in vnesite kode:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Shrani vse kode.

Vstavite modul

1. Za začetek ponovite 2. in 3. korak zgoraj.
2. In tokrat izberite “Modul”.
3. Dvokliknite za vstop v novi modul in vnesite ta makro:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Shrani makro. Za ta makro lahko določite gumb. Za podrobne korake lahko sledite tej povezavi za referenco: Kako odstraniti oblikovanje prilepljenih besedil z makro in VBA v besedi
5. Zaženite makro, da sprožite uporabniški obrazec. Kliknite »Sprejmi vse spremembe v več dokumentih« ali »Zavrni vse spremembe v več dokumentih« in sprožilo se bo okno »Brskaj«. Izberite dokumente in kliknite »V redu«.

Tu je rezultat:

Odpravljanje korupcije dokumentov

Izguba in uhajanje podatkov se dogaja ves čas. Nekatere od njih je mogoče preprečiti, druge pa se le pojavijo. Zato se je treba prijeti za orodje popraviti docx v nujnih primerih. S takim orodjem vam ne bo treba skrbeti za izgubo podatkov.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z Popravek v Excelu in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com