当Alastair打印文档时，他希望将该文档中的日期自动设置为下一个星期三的日期。例如，如果今天是13日（星期四），如果文档现在或在19日（含19日）之前的任何一天打印，则Alastair希望在19日（星期三）显示。从下一个星期四（20日）开始，Alastair希望打印日期为26日，依此类推。

没有合理或方便的方法来使用文档中的字段来执行此操作。 （我似乎有一些“选择将来的日期”字段组合，但它们确实是巨大的，不适合临时使用。）更好的解决方案是使用宏在插入点插入下一个星期三发生的日期的日期。成为。下面的示例显示了这样的宏可以多么简单：

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

当您运行宏时，它将当前日期分配给dMyDate变量。该变量不断增加，直到工作日为4（星期三）。然后在插入点的位置格式化并键入日期。

可以轻松修改宏，以始终将下一个星期三的日期放置在文档的特定位置。您需要做的就是对其进行修改，以便它搜索例如书签，并用格式化的日期替换该书签。您甚至可以设置Word，以便在BeforePrint事件期间运行宏，这意味着它将在打印之前执行。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）上描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（3849）适用于Microsoft Word 97、2000、2002和2003。您可以找到用于Word（Word 2007）的功能区界面的本技巧的一个版本。及更高版本）：

将日期强制到下一个星期三。