Paano Batch Tanggapin o Tanggihan ang Lahat ng Mga Pagbabago sa Maramihang Mga Dokumentong Salita

Sa post na ito, tututuon kami sa pagpapakita sa iyo ng paraan upang tanggapin o tanggihan nang sabay-sabay ang lahat ng mga pagbabago sa maraming dokumento ng Word.

Madaling tanggapin o tanggihan ang lahat ng mga pagbabago sa isang dokumento ng Word. Kailangan mo lamang i-click ang tab na "Suriin", pagkatapos ay i-click ang drop-down na pindutan sa "Tanggapin" o "Tanggihan" na utos. Susunod na piliin ang "Tanggapin ang Lahat ng Mga Pagbabago sa Dokumento" o "Tanggihan ang Lahat ng Mga Pagbabago sa Dokumento".

Kung gayon paano kung maraming mga dokumento na may mga pagbabago na nais mong tanggapin o tanggihan sa pangkat? Upang magawa ang gayong gawain, kakailanganin namin ang sumusunod na macro.

Magpasok ng isang Form ng Gumagamit

1. Una, pindutin ang "Alt + F11" upang buksan ang VBA editor sa Word.
2. Pangalawa, i-click ang "Normal".
3. Pagkatapos i-click ang "Ipasok" sa menu bar.
4. Piliin ang "UserForm" sa menu na iyon.
5. Mag-click sa mga hawakan sa paligid ng form upang baguhin ang laki nang maayos.
6. Pindutin ang "F4" upang ilabas ang "Properties Window" sa kaliwang kaliwang sulok.
7. Pagkatapos ay pangalanan ang form bilang "frmAcceptOrRejectChanges", at itakda ang caption nito bilang "Tanggapin / Tanggihan ang Mga Pagbabago". Bukod, itakda ang "ShowModal" bilang "Mali".
8. Susunod na pag-click sa "Toolbox" sa menu bar.
9. Gumamit ng mga kontrol sa tool box upang lumikha ng 3 mga pindutan ng utos at isang label at ilagay ang mga ito sa ganitong pagkakasunud-sunod:
10. Ngayon mag-click sa label upang buhayin ang window ng pag-aari nito. Itakda ang caption na ito bilang "Nais mo bang:". Inirerekumenda na itakda ang background ng label bilang transparent. Bukod, maaari mong itakda ang kulay at laki ng font ayon sa gusto mo.
11. Susunod na pag-click sa pindutan ng utos 1. Pangalanan ito bilang "btnAccept". Itakda ang caption na "Tanggapin ang Lahat ng Mga Pagbabago sa Maramihang Mga Dokumento".
12. Pagkatapos mag-double click sa command button 1 at ipasok ang mga sumusunod na code:

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. Bumalik ngayon sa form at mag-click sa pindutan ng utos 2. Pangalanan ito bilang "btnReject". At itakda ang teksto ng caption bilang "Tanggihan ang Lahat ng Mga Pagbabago sa Maramihang Mga Dokumento".
14. Katulad nito, i-double click sa command button 2 at i-input ang mga code na ito:

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. At susunod na mag-click sa command button 3. Pangalanan ito bilang "btnClose" at itakda ang caption bilang "Close".
16. Gayundin, mag-double click sa command button 3 at i-type ang mga code:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. I-save ang lahat ng mga code.

Magsingit ng isang Modyul

1. Upang magsimula sa, ulitin ang hakbang 2 at 3 sa itaas.
2. At sa oras na ito piliin ang "Modyul".
3. I-double click upang ipasok ang bagong module at ipasok ang macro na ito:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. I-save ang macro. Maaari kang pumili upang magtalaga ng isang pindutan para sa macro na ito. Para sa detalyadong mga hakbang, maaari mong sundin ang link na ito para sa sanggunian: Paano Tanggalin ang Pag-format ng Mga Na-paste na Mga Teksto gamit ang Macro at VBA sa Iyong Salita
5. Patakbuhin ang macro upang i-rigger ang form ng gumagamit. Mag-click sa alinman sa "Tanggapin ang Lahat ng Mga Pagbabago sa Maramihang Mga Dokumento" o "Tanggihan ang Lahat ng Mga Pagbabago sa Maramihang Mga Dokumento", at mag-i-trigger mo ang window na "Mag-browse". Piliin ang mga dokumento at i-click ang "OK".

Narito ang resulta:

Pangasiwaan ang Korupsyon ng Dokumento

Ang pagkawala ng data at pagtagas ay nangyayari sa lahat ng oras. Ang ilan sa kanila ay maiiwasan, habang ang iba ay nagaganap lamang. Samakatuwid, kinakailangan upang mahawakan ang isang tool upang ayusin ang docx sa oras ng kagipitan. Sa tulad ng isang tool, hindi mo na kailangang mag-alala tungkol sa pagkawala ng data.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang Pag-ayos ng Excel at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa