Cum să acceptați sau să respingeți în loturi toate modificările din mai multe documente Word

În această postare, ne vom concentra pe a vă arăta cum să acceptați sau să respingeți în lot toate modificările din mai multe documente Word în același timp.

Este ușor să acceptați sau să respingeți toate modificările dintr-un singur document Word. Trebuie doar să faceți clic pe fila „Revizuire”, apoi să faceți clic pe butonul derulant de pe comanda „Acceptare” sau „Respingere”. Apoi alegeți „Acceptați toate modificările în document” sau „Respingeți toate modificările în document”.

Apoi, ce se întâmplă dacă există mai multe documente cu modificări pe care doriți să le acceptați sau să le respingeți în lot? Pentru a îndeplini o astfel de sarcină, vom avea nevoie de următoarea macrocomandă.

Introduceți un formular de utilizator

1. În primul rând, apăsați „Alt+ F11” pentru a deschide editorul VBA în Word.
2. În al doilea rând, faceți clic pe „Normal”.
3. Apoi faceți clic pe „Insert” din bara de meniu.
4. Alegeți „UserForm” din meniul respectiv.
5. Faceți clic pe mânerele din jurul formularului pentru a-l redimensiona corect.
6. Apăsați „F4” pentru a afișa „Fereastra de proprietăți” din colțul din stânga-jos.
7. Apoi denumește formularul ca „frmAcceptOrRejectChanges” și setează-i titlul ca „Accept/Reject Changes”. În plus, setați „ShowModal” ca „False”.
8. Apoi faceți clic pe „Toolbox” din bara de meniu.
9. Utilizați controalele din caseta de instrumente pentru a crea 3 butoane de comandă și o etichetă și puneți-le astfel:
10. Acum faceți clic pe etichetă pentru a activa fereastra de proprietăți. Setați legendă ca „Doriți să:”. Se recomandă să setați fundalul etichetei ca fiind transparent. În plus, puteți seta culoarea și dimensiunea fontului după cum doriți.
11. Apoi faceți clic pe butonul de comandă 1. Numiți-l ca „btnAccept”. Setați legenda ca „Acceptați toate modificările în mai multe documente”.
12. Apoi faceți dublu clic pe butonul de comandă 1 și introduceți următoarele coduri:

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. Acum reveniți la formular și faceți clic pe butonul de comandă 2. Numiți-l ca „btnReject”. Și setați textul legendei ca „Respinge toate modificările din mai multe documente”.
14. În mod similar, faceți dublu clic pe butonul de comandă 2 și introduceți aceste coduri:

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. Și apoi faceți clic pe butonul de comandă 3. Numiți-l ca „btnClose” și setați legenda ca „Închidere”.
16. De asemenea, faceți dublu clic pe butonul de comandă 3 și introduceți codurile:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Salvați toate codurile.

Introduceți un modul

1. Pentru început, repetați pașii 2 și 3 de mai sus.
2. Și de data aceasta alegeți „Modul”.
3. Faceți dublu clic pentru a intra în noul modul și introduceți această macrocomandă:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Salvați macro-ul. Puteți alege să atribuiți un buton pentru această macrocomandă. Pentru pași detaliați, puteți urma acest link pentru referință: Cum să eliminați formatarea textelor lipite cu macro și VBA în Word
5. Rulați macrocomanda pentru a manipula formularul de utilizator. Faceți clic fie pe „Acceptați toate modificările din mai multe documente” fie pe „Respingeți toate modificările din mai multe documente” și veți declanșa fereastra „Răsfoiți”. Selectați documentele și faceți clic pe „OK”.

Iată rezultatul:

Gestionați corupția documentelor

Pierderea și scurgerea de date se întâmplă tot timpul. Unele dintre ele pot fi prevenite, în timp ce altele apar pur și simplu. Prin urmare, este necesar să obțineți un instrument pentru a reparați docx în momente de urgență. Cu un astfel de instrument, nu va trebui să vă faceți griji cu privire la pierderea datelor.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Remediere Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com