Trong bài viết này, chúng tôi muốn chia sẻ với bạn 3 cách để chỉ chấp nhận các thay đổi được theo dõi cụ thể trong tài liệu Word của bạn.
Thông thường, trong một tài liệu có các thay đổi được theo dõi, bạn có thể chấp nhận tất cả chúng cùng một lúc hoặc từng cái một. Nhưng đôi khi, bạn có thể chỉ cần chấp nhận những thay đổi cụ thể, chẳng hạn như tất cả các thay đổi về định dạng. Để giải quyết vấn đề này, nó đòi hỏi các bước bổ sung.
Sau đây là 3 cách tiếp cận để chỉ chấp nhận các thay đổi được theo dõi cụ thể trong các trường hợp khác nhau.
Phương pháp 1: Chấp nhận tất cả các thay đổi được theo dõi của loại cụ thể
Ở đây, giả sử chúng ta cần chấp nhận tất cả các thay đổi định dạng trong tài liệu.
- Đầu tiên, nhấp vào tab “Xem lại”.
- Sau đó nhấp vào lệnh "Hiển thị đánh dấu".
- Tiếp theo, chỉ chọn hộp “Định dạng” trên menu thả xuống.
- Bây giờ bạn chỉ có thể thấy các thay đổi về định dạng được hiển thị trong tài liệu. Nhấp vào nút thả xuống trên lệnh “Chấp nhận”.
- Và chọn tùy chọn “Chấp nhận tất cả các thay đổi được hiển thị”.
Tương tự như vậy, để chấp nhận các thay đổi khác, chỉ cần hiển thị loại thay đổi đó trong tài liệu và chấp nhận chúng.
Phương pháp 2: Chỉ chấp nhận Xóa hoặc Chèn
Như bạn có thể thấy từ ảnh chụp màn hình đầu tiên, các phần chèn và xóa được liên kết với nhau. Do đó, để chấp nhận một trong số chúng, bạn cần có macro.
- Trước hết, nhấn “Alt + F11” để kích hoạt trình soạn thảo VBA trong Word.
- Tiếp theo, nhấp vào dự án “Bình thường” và nhấp vào “Chèn” trên thanh menu.
- Và chọn “Mô-đun” trên menu đó để chèn một cái mới.
- Sau đó nhấp đúp chuột vào mô-đun để mở và dán mã sau:
Sub AcceptOnlyDeletionsInDoc()
Dim objRevision As Revision
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objRevision In objDoc.Revisions
With objRevision
If .Type = wdRevisionDelete Then
.Accept
End If
End With
Next objRevision
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
- Cuối cùng, nhấp vào nút “Chạy” hoặc chỉ cần nhấn “F5” để thực thi mã.
Macro này chấp nhận tất cả các thao tác xóa trong tài liệu. Để chấp nhận tất cả các lần chèn, bạn chỉ cần thay thế bằng macro này:
Sub AcceptOnlyInsertionsInDoc()
Dim objRevision As Revision
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objRevision In objDoc.Revisions
With objRevision
If .Type = wdRevisionInsert Then
.Accept
End If
End With
Next objRevision
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
Phương pháp 3: Chấp nhận tất cả thay đổi trong vùng chọn
Phương pháp này chỉ cho bạn cách nhanh chóng chấp nhận tất cả các thay đổi ở các kiểu khác nhau trong một vùng chọn.
- Để start với, thực hiện lựa chọn trên tarcó được phạm vi.
- Sau đó nhấp vào tab "Xem lại" trong Dải băng.
- Tiếp theo, nhấp vào nút thả xuống trên lệnh “Chấp nhận”.
- Trên menu thả xuống, chọn “Chấp nhận thay đổi”. Và thế là xong.
Mất dữ liệu thâm nhập mọi nơi
Đi cùng với làn sóng số hóa, xác suất nhận được tài liệu tham nhũng đang tăng. Xem xét giá trị của dữ liệu của bạn, bạn nên có một công cụ sửa chữa đầy đủ. Vì vậy, bạn có thể khôi phục tài liệu với ít thời gian nhất.
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 xls 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