Cara Batch Menerima atau Menolak Semua Perubahan dalam Beberapa Dokumen Word

Dalam hlm iniost, kami akan fokus untuk menunjukkan kepada anda cara untuk menerima atau menolak semua perubahan dalam banyak dokumen Word secara bersamaan.

Sangat mudah untuk menerima atau menolak semua perubahan dalam satu dokumen Word. Anda hanya perlu mengklik tab "Review", kemudian klik butang drop-down pada perintah "Terima" atau "Tolak". Selanjutnya pilih "Terima Semua Perubahan dalam Dokumen" atau "Tolak Semua Perubahan dalam Dokumen".

Lalu bagaimana jika terdapat banyak dokumen dengan perubahan yang ingin anda terima atau tolak secara berkumpulan? Untuk melaksanakan tugas seperti ini, kita memerlukan makro berikut.

Masukkan Borang Pengguna

1. Mula-mula, tekan "Alt + F11" untuk membuka editor VBA di Word.
2. Kedua, klik "Normal".
3. Kemudian klik "Masukkan" pada bar menu.
4. Pilih "UserForm" pada menu itu.
5. Klik pada pemegang di sekitar borang untuk mengubah saiznya dengan betul.
6. Tekan "F4" untuk mengeluarkan "Properties Window" di sudut kiri bawah.
7. Kemudian namakan borang sebagai "frmAcceptOrRejectChanges", dan tetapkan kapsyennya sebagai "Terima / Tolak Perubahan". Selain itu, tetapkan "ShowModal" sebagai "Palsu".
8. Seterusnya klik "Kotak Alat" pada bar menu.
9. Gunakan kawalan pada kotak alat untuk membuat 3 butang arahan dan label dan meletakkannya seperti itu:
10. Sekarang klik pada label untuk mengaktifkan tetingkap hartanya. Tetapkan kapsyennya sebagai "Adakah anda mahu:". Sebaiknya tetapkan latar belakang label sebagai telus. Selain itu, anda boleh menetapkan warna dan ukuran fon yang anda mahu.
11. Klik seterusnya pada butang arahan 1. Namakan sebagai "btnAccept". Tetapkan kapsyen sebagai "Terima Semua Perubahan dalam Beberapa Dokumen".
12. Kemudian klik dua kali pada butang arahan 1 dan masukkan kod berikut:

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. Sekarang kembali ke bentuk dan klik pada butang arahan 2. Namakan sebagai "btnReject". Dan tetapkan teks kapsyen sebagai "Tolak Semua Perubahan dalam Beberapa Dokumen".
14. Begitu juga, klik dua kali pada butang arahan 2 dan masukkan kod ini:

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. Dan klik seterusnya pada butang arahan 3. Namakan sebagai "btnClose" dan tetapkan kapsyen sebagai "Tutup".
16. Begitu juga, klik dua kali pada butang arahan 3 dan taip kod:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Simpan semua kod.

Masukkan Modul

1. Sebagai permulaan, ulangi langkah 2 dan 3 di atas.
2. Dan kali ini pilih "Modul".
3. Klik dua kali untuk memasukkan modul baru dan masukkan makro ini:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Simpan makro. Anda boleh memilih untuk menetapkan butang untuk makro ini. Untuk langkah terperinci, anda boleh mengikuti pautan ini untuk rujukan: Cara Menghapus Pemformatan Teks Tampal dengan Makro dan VBA di Word Anda
5. Jalankan makro untuk menyusun borang pengguna. Klik "Terima Semua Perubahan dalam Beberapa Dokumen" atau "Tolak Semua Perubahan dalam Beberapa Dokumen", dan anda akan mencetuskan tetingkap "Browse". Pilih dokumen dan klik "OK".

Inilah hasilnya:

Tangani Rasuah Dokumen

Kehilangan dan kebocoran data berlaku sepanjang masa. Sebahagian daripadanya dapat dicegah, sementara yang lain hanya berlaku. Oleh itu, perlu menggunakan alat untuk betulkan docx pada masa kecemasan. Dengan alat seperti itu, anda tidak perlu risau tentang kehilangan data.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Pembaikan Excel dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com