Khi Alastair in một tài liệu, anh ta muốn tự động đặt ngày trong tài liệu đó thành ngày thứ Tư tuần sau. Ví dụ: nếu hôm nay là Thứ Năm ngày 13, Alastair sẽ muốn hiển thị Thứ Tư ngày 19 nếu tài liệu được in ngay bây giờ hoặc vào bất kỳ ngày nào trước và bao gồm cả chính ngày 19. Từ thứ Năm tới (20), Alastair muốn ngày in là ngày 26, v.v.

Không có cách hợp lý hoặc thuận tiện để làm điều này bằng cách sử dụng các trường trong tài liệu. (Tôi đã thấy một số kết hợp trường “chọn một ngày trong tương lai”, nhưng chúng thực sự khổng lồ và không phải để sử dụng thông thường.) Giải pháp tốt hơn là sử dụng macro để chèn, tại điểm chèn, ngày của bất kỳ điều gì xảy ra vào Thứ Tư tới được. Sau đây là một ví dụ cho thấy một macro như vậy có thể đơn giản như thế nào:

Sub ForceWednesday()

Dim dMyDate As Date     dMyDate = Date     While WeekDay(dMyDate) <> 4         dMyDate = dMyDate + 1     Wend     Selection.TypeText Text:=Format(dMyDate, "mmmm d, yyyy")

End Sub

Khi bạn chạy macro, nó sẽ gán ngày hiện tại cho biến dMyDate. Biến này liên tục tăng cho đến ngày trong tuần là 4 (thứ Tư). Sau đó, ngày tháng được định dạng và nhập tại vị trí của điểm chèn.

Có thể dễ dàng sửa đổi macro để luôn đặt ngày thứ Tư tiếp theo vào một vị trí cụ thể của tài liệu. Tất cả những gì bạn cần làm là sửa đổi nó để nó tìm kiếm, chẳng hạn, một dấu trang và thay thế dấu trang bằng ngày đã định dạng. Bạn thậm chí có thể thiết lập Word để macro được chạy trong sự kiện BeforePrint, có nghĩa là nó sẽ được thực thi ngay trước khi in.

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