Trong p nàyost, chúng tôi sẽ tập trung vào việc chỉ cho bạn cách chấp nhận hoặc từ chối hàng loạt tất cả các thay đổi trong nhiều tài liệu Word cùng một lúc.
Thật dễ dàng để chấp nhận hoặc từ chối tất cả các thay đổi trong một tài liệu Word. Bạn chỉ cần nhấp vào tab “Xem lại”, sau đó nhấp vào nút thả xuống trên lệnh “Chấp nhận” hoặc “Từ chối”. Tiếp theo chọn “Chấp nhận tất cả thay đổi trong tài liệu” hoặc “Từ chối tất cả thay đổi trong tài liệu”.
Vậy nếu có nhiều tài liệu có thay đổi mà bạn muốn chấp nhận hoặc từ chối hàng loạt thì sao? Để hoàn thành nhiệm vụ như vậy, chúng ta sẽ cần macro sau.
Chèn một biểu mẫu người dùng
- Trước hết, nhấn “Alt + F11” để mở trình soạn thảo VBA trong Word.
- Thứ hai, nhấp vào “Bình thường”.
- Sau đó nhấp vào “Chèn” trên thanh menu.
- Chọn “UserForm” trên menu đó.
- Bấm vào các điểm điều khiển xung quanh biểu mẫu để thay đổi kích thước của nó cho phù hợp.
- Nhấn “F4” để hiển thị “Cửa sổ thuộc tính” ở góc dưới bên trái.
- Sau đó đặt tên biểu mẫu là “frmAcceptOrRejectChanges” và đặt chú thích của nó là “Chấp nhận/Từ chối thay đổi”. Ngoài ra, hãy đặt “ShowModal” là “False”.
- Tiếp theo bấm vào “Hộp công cụ” trên thanh menu.
- Sử dụng các điều khiển trên hộp công cụ để tạo 3 nút lệnh và nhãn và sắp xếp chúng theo thứ tự sau:
- Bây giờ bấm vào nhãn để kích hoạt cửa sổ thuộc tính của nó. Đặt chú thích của nó là “Bạn có muốn:”. Bạn nên đặt nền của nhãn là trong suốt. Ngoài ra, bạn có thể thiết lập màu sắc và kích thước font chữ theo ý muốn.
- Tiếp theo bấm vào nút lệnh 1. Đặt tên là “btnAccept”. Đặt chú thích là “Chấp nhận tất cả thay đổi trong nhiều tài liệu”.
- Sau đó nhấp đúp vào nút lệnh 1 và nhập mã sau:
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
- Bây giờ quay lại biểu mẫu và nhấp vào nút lệnh 2. Đặt tên là “btnReject”. Và đặt văn bản chú thích là “Từ chối tất cả thay đổi trong nhiều tài liệu”.
- Tương tự, nhấp đúp vào nút lệnh 2 và nhập các mã sau:
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
- Và tiếp theo hãy nhấp vào nút lệnh 3. Đặt tên là “btnClose” và đặt chú thích là “Close”.
- Tương tự, nhấp đúp chuột vào nút lệnh 3 và gõ mã:
Private Sub btnClose_Click() Unload Me End Sub
- Lưu tất cả các mã.
Chèn một mô-đun
- Để bắt đầu, hãy lặp lại bước 2 và 3 ở trên.
- Và lần này chọn “Mô-đun”.
- Nhấp đúp chuột để vào mô-đun mới và nhập macro này:
Sub ShowAcceptOrRejectForm() frmAcceptOrRejectRevisions.Show End Sub
- Lưu macro. Bạn có thể chọn gán một nút cho macro này. Để biết các bước chi tiết, bạn có thể theo liên kết này để tham khảo: Cách xóa định dạng của văn bản đã dán bằng Macro và VBA trong Word của bạn
- Chạy macro để điều chỉnh biểu mẫu người dùng. Nhấp vào “Chấp nhận tất cả thay đổi trong nhiều tài liệu” hoặc “Từ chối tất cả thay đổi trong nhiều tài liệu” và bạn sẽ kích hoạt cửa sổ “Duyệt qua”. Chọn tài liệu và nhấp vào “OK”.
Đây là kết quả:
Xử lý tham nhũng tài liệu
Mất mát và rò rỉ dữ liệu xảy ra mọi lúc. Một số trong số chúng có thể được ngăn chặn, trong khi một số khác chỉ xảy ra. Vì vậy, cần phải có một công cụ để sửa docx trong những lúc khẩn cấp. Với công cụ như vậy, bạn sẽ không cần lo lắng về việc mất dữ liệu.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa lỗi excel và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm