Kaip grupiniu būdu priimti arba atmesti visus kelių „Word“ dokumentų pakeitimus

Šiame įraše daugiausia dėmesio skirsime tam, kaip vienu metu priimti arba atmesti visus pakeitimus keliuose „Word“ dokumentuose.

Lengva priimti arba atmesti visus pakeitimus viename „Word“ dokumente. Jums tereikia spustelėti skirtuką „Peržiūrėti“, tada spustelėkite išskleidžiamąjį mygtuką „Priimti“ arba „Atmesti“. Tada pasirinkite „Priimti visus dokumento pakeitimus“ arba „Atmesti visus dokumento pakeitimus“.

O kas, jei yra keli dokumentai su pakeitimais, kuriuos norite priimti arba atmesti paketu? Norėdami atlikti tokią užduotį, mums reikės šios makrokomandos.

Įdėkite vartotojo formą

1. Pirmiausia paspauskite „Alt + F11“, kad atidarytumėte VBA redaktorių „Word“.
2. Antra, spustelėkite „Normalus“.
3. Tada meniu juostoje spustelėkite „Įterpti“.
4. Tame meniu pasirinkite „Vartotojo forma“.
5. Spustelėkite aplink formą esančias rankenas, kad tinkamai pakeistumėte jos dydį.
6. Paspauskite „F4“, kad kairiajame apatiniame kampe būtų rodomas „Ypatybių langas“.
7. Tada pavadinkite formą „frmAcceptOrRejectChanges“ ir nustatykite jos antraštę kaip „Priimti / atmesti pakeitimus“. Be to, nustatykite „ShowModal“ kaip „False“.
8. Tada meniu juostoje spustelėkite „Toolbox“.
9. Naudokite įrankių dėžutės valdiklius, kad sukurtumėte 3 komandų mygtukus ir etiketę ir išdėstytumėte juos tokia tvarka:
10. Dabar spustelėkite etiketę, kad suaktyvintumėte jos nuosavybės langą. Nustatykite jo antraštę kaip „Ar norite:“. Etiketės foną rekomenduojama nustatyti kaip skaidrų. Be to, galite nustatyti šrifto spalvą ir dydį, kaip jums patinka.
11. Tada spustelėkite komandos mygtuką 1. Pavadinkite jį kaip „btnAccept“. Antraštę nustatykite kaip „Priimti visus kelių dokumentų pakeitimus“.
12. Tada dukart spustelėkite 1 komandos mygtuką ir įveskite šiuos kodus:

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. Dabar grįžkite į formą ir spustelėkite komandos mygtuką 2. Pavadinkite jį kaip "btnReject". Ir nustatykite antraštės tekstą kaip „Atmesti visus kelių dokumentų pakeitimus“.
14. Panašiai dukart spustelėkite 2 komandos mygtuką ir įveskite šiuos kodus:

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. Tada spustelėkite komandos mygtuką 3. Pavadinkite jį kaip "btnClose" ir nustatykite antraštę kaip "Close".
16. Taip pat dukart spustelėkite 3 komandos mygtuką ir įveskite kodus:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Išsaugokite visus kodus.

Įdėkite modulį

1. Norėdami pradėti, pakartokite aukščiau nurodytus 2 ir 3 veiksmus.
2. Ir šį kartą pasirinkite „Modulis“.
3. Dukart spustelėkite, kad įeitumėte į naują modulį ir įveskite šią makrokomandą:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Išsaugokite makrokomandą. Galite pasirinkti šiai makrokomandai priskirti mygtuką. Norėdami gauti išsamius veiksmus, galite naudoti šią nuorodą: Kaip pašalinti įklijuotų tekstų formatavimą naudojant makrokomandas ir VBA programoje „Word“.
5. Paleiskite makrokomandą, kad sugadintumėte vartotojo formą. Spustelėkite „Priimti visus pakeitimus keliuose dokumentuose“ arba „Atmesti visus kelių dokumentų pakeitimus“ ir suaktyvinsite langą „Naršyti“. Pasirinkite dokumentus ir spustelėkite „Gerai“.

Štai rezultatas:

Tvarkyti dokumentų korupciją

Duomenų praradimas ir nutekėjimas vyksta visą laiką. Kai kurių iš jų galima išvengti, o kitų tiesiog atsiranda. Todėl būtina pasiimti įrankį pataisyti docx avariniais atvejais. Naudodami tokį įrankį jums nereikės jaudintis dėl duomenų praradimo.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant Excel taisymas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com