Cách nhanh (est) để xem (phục hồi) các thay đổi trong tài liệu (sau khi không theo dõi chúng)

Tôi thường đưa ra phản hồi về rất nhiều tài liệu với Word. Thật không may, nếu một tài liệu được lưu mà không theo dõi các thay đổi, tôi phải (nhớ) bật nó lên. Thật không may, điều đó xảy ra quá thường xuyên khi tôi bắt đầu sửa tài liệu và nhận ra hơn 10 thay đổi trong đó tôi chưa kích hoạt theo dõi.

Giải pháp, tất nhiên, là lưu tài liệu và sau đó làm một so sánh.

Nhưng quy trình so sánh là nặng nhấp. Nó không có mặc định để sử dụng tài liệu hiện tại cho một trong các tài liệu trong so sánh. Tôi phải lưu tài liệu hiện tại vào một tệp mới (không quá tệ), nhưng sau đó tôi phải chọn các tệp cũ và mới thông qua hộp thoại tệp (đó thực sự là nhấp chuột).

Câu hỏi của tôi: có cách nào nhanh hơn để khôi phục các thay đổi bạn đã thực hiện sau khi quên bật các thay đổi theo dõi không?

Hầu hết các trình soạn thảo mã nguồn phần mềm chấp nhận tài liệu hiện tại là một trong các tệp cho thao tác so sánh, nhưng có vẻ như Word luôn muốn có tệp đã lưu (và GUI của nó quá ngu ngốc để đề xuất tệp gần đây hoặc hiện được mở dưới dạng mặc định hoặc thậm chí ở đầu danh sách các tập tin theo thứ tự chữ cái).

Một giải pháp khác sẽ là cách bật "Theo dõi thay đổi" trên bất kỳ tài liệu nào tôi mở. Tuy nhiên, từ việc đọc này, tôi có ấn tượng rằng nó chỉ có thể cài đặt được cho các tài liệu mới .

Một giải pháp khác sẽ là cách bật "Theo dõi thay đổi" trên bất kỳ tài liệu nào tôi mở.

Tôi đã tìm thấy một cách, cũng hoạt động để chịu đựng trường hợp bật Theo dõi thay đổi khi tài liệu ở chế độ xem "Được bảo vệ" ( ActiveDocumentkhông hợp lệ trong Document_Opentrình xử lý tiêu chuẩn và bạn phải nắm bắt đúng sự kiện).

Đây là VBA Macro cần có trong ThisDocument cho dự án Bình thường :

Private WithEvents app As Word.Application

Private Sub Document_Open()
    Set app = Word.Application
    ' Force track changes
    ' On error resume next, since Protected View Document_Open has different context
    On Error Resume Next
    ActiveDocument.TrackRevisions = True
End Sub

' see https://msdn.microsoft.com/en-us/library/office/hh128817(v=office.14).aspx
Private Sub app_ProtectedViewWindowBeforeClose(ByVal PvWindow As ProtectedViewWindow, ByVal CloseReason As Long, Cancel As Boolean)
    Select Case CloseReason
      Case wdProtectedViewCloseEdit
        ActiveDocument.TrackRevisions = True  'safe to turn on here
    End Select
End Sub