Robin đang tìm cách thông báo cho người dùng khi tài liệu được mở, về việc có bất kỳ thay đổi nào được theo dõi trong tài liệu hay không. Đây không phải là một tính năng tiêu chuẩn của Word, nhưng nó có thể được thêm dễ dàng bằng macro Tự động mở. Nếu bạn muốn macro chỉ cho biết liệu Theo dõi Thay đổi đã được bật hay chưa, bạn có thể sử dụng như sau:

Sub AutoOpen()

If ActiveDocument.TrackRevisions = True Then         MsgBox "Track Changes is On."

End If End Sub

Lưu ý rằng macro này không cho bạn biết nếu thực sự có bất kỳ thay đổi nào trong tài liệu, vì vậy nó không hữu ích trong trường hợp Theo dõi Thay đổi bị tắt, nhưng các thay đổi chưa được giải quyết từ phiên chỉnh sửa trước đó vẫn tồn tại. Trong trường hợp đó, bạn cần mở rộng macro một chút.

Sub AutoOpen()

On Error Resume Next

If ActiveDocument.TrackRevisions = True Then         MsgBox "Track Changes is On"

With ActiveWindow.View             .ShowRevisionsAndComments = True             .RevisionsView = wdRevisionsViewFinal         End With         Exit Sub     End If

If ActiveDocument.Revisions.Count > 0 Then         MsgBox "Document contains revisions"

With ActiveWindow.View             .ShowRevisionsAndComments = True             .RevisionsView = wdRevisionsViewFinal         End With         Exit Sub     End If End Sub

Phiên bản này của macro kiểm tra hai điều kiện, hiển thị hộp thông báo nếu Theo dõi thay đổi được bật và cũng hiển thị hộp thông báo nếu có bất kỳ thay đổi nào hiện có trong tài liệu. Trong cả hai trường hợp, macro cũng thay đổi chế độ xem tài liệu để các thay đổi hiển thị trên màn hình.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (409) áp dụng cho Microsoft Word 2000, 2002 và 2003.

Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Word (Word 2007 trở lên) tại đây: