Văn phòng của Carl sử dụng rộng rãi tính năng Theo dõi Thay đổi trong Word, với các tài liệu được trải qua nhiều cá nhân và nhiều bản sửa đổi trước khi hoàn thiện. Tính năng Theo dõi Thay đổi hoạt động rất tốt cho mục đích này, ngoại trừ một ngoại lệ: tài liệu bao gồm, trong chân trang, trường ngày (ngày đã lưu) và mỗi khi tài liệu được lưu, Theo dõi Thay đổi sẽ tự động gạch ra ngày hiện có và chèn ngày lưu cuối cùng mới. Điều này nhanh chóng dẫn đến một chân trang nhiều dòng của các trường ngày lưu lần cuối đã sửa đổi. Carl tự hỏi liệu có cách nào để yêu cầu Word “bỏ qua” chân trang (hoặc một trường cụ thể, khối văn bản, phần, v.v.) khi sử dụng Theo dõi Thay đổi.

Câu trả lời ngắn gọn là không, không có bất kỳ cách nào để làm điều này. Tính năng Theo dõi Thay đổi được bật hoặc tắt cho toàn bộ tài liệu. Điều này có nghĩa là bạn chỉ có một vài lựa chọn. Tùy chọn đầu tiên là đặt ngày trong chân trang tĩnh để nó không thay đổi. Bạn có thể thay thế nó bằng văn bản (thay vì sử dụng trường) và sau đó chỉ cần nhớ cập nhật ngày như một trong những bước cuối cùng trước khi hoàn tất hoặc in tài liệu.

Một tùy chọn khác là luôn chấp nhận thay đổi đối với chân trang bất cứ khi nào bạn mở tệp trong Word. Chỉ cần nhấp chuột phải vào ngày ở chân trang và sau đó chọn Chấp nhận Thay đổi.

Vẫn còn một tùy chọn khác là sử dụng macro để thực sự lưu tài liệu của bạn (nếu đây là điểm mà chân trang đang được cập nhật). Macro sau hoàn thành một số việc và có thể được gán cho một nút trên thanh công cụ để dễ sử dụng. Đầu tiên, nó đi qua tất cả các chân trang trong tài liệu và cập nhật tất cả các trường trong chân trang. Sau đó, nó chấp nhận bất kỳ bản sửa đổi nào trong các chân trang đó. Cuối cùng, nó lưu tài liệu.

Sub Save_NoFooterRevisions()

Dim rFooter As Range     Dim iSectCount As Integer     Dim j As Integer

iSectCount = ActiveDocument.Sections.Count

For j = 1 To iSectCount         Set rFooter = ActiveDocument.Sections(j) _           .Footers(wdHeaderFooterPrimary).Range         With rFooter             .Fields.Update             .Revisions.AcceptAll         End With         Set rFooter = ActiveDocument.Sections(j) _           .Footers(wdHeaderFooterEvenPages).Range         With rFooter             .Fields.Update             .Revisions.AcceptAll         End With         Set rFooter = ActiveDocument.Sections(j) _           .Footers(wdHeaderFooterFirstPage).Range         With rFooter             .Fields.Update             .Revisions.AcceptAll         End With     Next j     ActiveDocument.Save End Sub

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 (10807) áp dụng cho Microsoft Word 2007, 2010, 2013 và 2016. Bạn có thể tìm phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: