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

Recuperarea documentelor Word, Soluții Word Iulie 21, 2017

În această post, ne vom concentra pe a vă arăta modul de a accepta sau respinge toate modificările în 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ă.Acceptați sau respingeți în lot toate modificările din mai multe documente Word

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.Faceți clic pe „Normal”->Faceți clic pe „Insert”->Alegeți „UserForm”
  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”.Setați proprietățile formularului
  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:3 butoane de comandă și 1 etichetă
  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) Cu dlgFile dlgFile.AllowMultiSelect = True If .Show = -1 Then For nDocx = 1 To dlgFile.SelectedItems.SelectedItems.Countled DocumentsFile. = ActiveDocument objDocx.AcceptAllRevisions objDocx.Save objDocx.Close Next nDocx Else MsgBox ("Trebuie să selectați mai întâi documentele!") Exit Sub End If End With MsgBox ("Ați acceptat toate revizuirile în documentele selectate.") Set objDocx = Nothing End Sub
  1. 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”.
  2. Î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) Cu dlgFile dlgFile.AllowMultiSelect = True If .Show = -1 Then For nDocx = 1 To dlgFile.SelectedItems.SelectedItems.Countled DocumentsFile. = ActiveDocument objDocx.RejectAllRevisions objDocx.Save objDocx.Close Next nDocx Else MsgBox ("Trebuie să selectați mai întâi documentele!") Exit Sub End If End With MsgBox ("Ați respins toate revizuirile în documentele selectate.") Set objDocx = Nothing End Sub
  1. Și apoi faceți clic pe butonul de comandă 3. Numiți-l ca „btnClose” și setați legenda ca „Închidere”.
  2. De asemenea, faceți dublu clic pe butonul de comandă 3 și introduceți codurile:
Private Sub btnClose_Click() Descărcați-mă End Sub
  1. Salvați toate codurile.Lipiți coduri-> Faceți clic pe „Salvați”

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
  1. 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
  2. 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”.Selectați Documente->Faceți clic pe „OK”

Iată rezultatul:Caseta de rezultate

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 si pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com

Comentariile sunt închise.