Bỏ qua nội dung chính

Làm cách nào để chấp nhận các thay đổi theo dõi định dạng chỉ trong tài liệu Word?

Nếu bạn có tài liệu Word đang ở chế độ theo dõi thay đổi, khi bạn áp dụng Chấp nhận tất cả các thay đổi tất cả các thay đổi theo dõi sẽ được chấp nhận. Tuy nhiên, đôi khi, bạn chỉ muốn chấp nhận các thay đổi theo dõi định dạng mà không chấp nhận việc chèn hoặc xóa. Bài viết này sẽ nói về cách giải quyết tác vụ này trong tài liệu Word.

Chỉ chấp nhận các thay đổi theo dõi định dạng trong Word với mã VBA

Chỉ chấp nhận các thay đổi theo dõi định dạng trong Word với chức năng Show Markup


Chỉ chấp nhận các thay đổi theo dõi định dạng trong Word với mã VBA

Mã VBA sau có thể giúp bạn chấp nhận các thay đổi theo dõi định dạng chỉ trong tài liệu Word, vui lòng thực hiện như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Và sau đó, nhấp vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở:

Mã VBA: Chỉ chấp nhận các thay đổi theo dõi định dạng trong tài liệu Word

Sub AcceptFormatChanges()
    Dim xRev As Revision
    For Each xRev In ActiveDocument.Revisions
        If Left(xRev.FormatDescription, 10) = "Formatted:" Then
            xRev.Accept
        End If
    Next
End Sub

3. Và sau đó nhấn F5 để chạy mã này và chỉ những thay đổi theo dõi định dạng mới được chấp nhận trong tài liệu Word đang hoạt động ngay lập tức. Xem ảnh chụp màn hình:

doc chấp nhận định dạng 1


Chỉ chấp nhận các thay đổi theo dõi định dạng trong Word với chức năng Show Markup

Trong tài liệu Word, bạn cũng có thể áp dụng Hiển thị Đánh dấu để hoàn thành công việc này, vui lòng thực hiện theo các bước sau:

1. Trong tệp chế độ thay đổi bản nhạc, hãy nhấp vào Đánh giá > Hiển thị Đánh dấu, và sau đó bỏ chọn Nhận xét Chèn và Xóa các tùy chọn và rời khỏi Định dạng đã chọn tùy chọn, xem ảnh chụp màn hình:

doc chấp nhận định dạng 2

2. Và bây giờ, bạn chỉ có thể thấy các thay đổi định dạng được theo dõi, sau đó, hãy nhấp vào Đánh giá > Chấp nhận > Chấp nhận tất cả các thay đổi được hiển thị như ảnh chụp màn hình sau được hiển thị:

doc chấp nhận định dạng 3

3. Và tất cả các thay đổi theo dõi định dạng đã được chấp nhận, bây giờ, bạn cần quay lại Bình luận, Chèn và Xóa các tùy chọn bằng cách kiểm tra chúng từ Hiển thị Đánh dấu danh sách thả xuống, xem ảnh chụp màn hình:

doc chấp nhận định dạng 4

4. Bây giờ, bạn có thể thấy các thay đổi định dạng bản nhạc đã được chấp nhận và các thay đổi bản nhạc khác vẫn được giữ, xem ảnh chụp màn hình:

doc chấp nhận định dạng 1

Công cụ năng suất văn phòng tốt nhất

Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!

🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung  /  Viết lại văn bản  /  Tóm tắt tài liệu  /  Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word

📘 Làm chủ tài liệu: Chia trang  /  Hợp nhất tài liệu  /  Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...)  /  Chuyển đổi hàng loạt sang PDF  /  Xuất trang dưới dạng hình ảnh  /  In nhiều tập tin cùng một lúchữu ích. Cảm ơn !

Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp  /  Thay đổi kích thước tất cả hình ảnh  /  Hoán đổi hàng và cột của bảng  /  Chuyển bảng thành văn bảnhữu ích. Cảm ơn !

🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung  /  Phần ngắt  /  Tất cả các tiêu đề  /  Hộp văn bản  /  Các siêu liên kết  / Để biết thêm các công cụ xóa, hãy truy cập Xóa nhómhữu ích. Cảm ơn !

Phụ trang quảng cáo: Chèn Ngàn dấu phân cách  /  Hộp kiểm tra  /  Nút radio  /  Mã QR  /  Mã vạch  /  Bảng đường chéo  /  Chú thích phương trình  /  Hình ảnh Caption  /  Bảng chú thích  /  Nhiều Hình Ảnh  / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !

???? Lựa chọn chính xác: Xác định trang cụ thể  /  bảng  /  hình dạng  /  đoạn văn tiêu đề  / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !

Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào  /  tự động chèn văn bản lặp đi lặp lại  /  chuyển đổi liền mạch giữa các cửa sổ tài liệu  /  11 công cụ chuyển đổihữu ích. Cảm ơn !

👉 Bạn muốn thử những tính năng này? Kutools cho Word cung cấp một 60 ngày dùng thử miễn phí, không có giới hạn! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Vous êtes mon héros. En français, le code serait le suivant:

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If Left(xRev.FormatDescription, 12) = "Mis en forme" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Dans toutes les langues :

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If xRev.FormatDescription <> "" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations