Alastairがドキュメントを印刷するとき、彼はそのドキュメントの日付を次の水曜日の日付に自動的に設定したいと考えています。たとえば、今日が13日木曜日である場合、ドキュメントが現在、または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（水曜日）になるまで継続的に増分されます。次に、日付がフォーマットされ、挿入ポイントの場所に入力されます。

マクロを簡単に変更して、次の水曜日の日付を常にドキュメントの特定の場所に配置することができます。たとえば、ブックマークを検索し、ブックマークをフォーマットされた日付に置き換えるように変更するだけです。マクロがBeforePrintイベント中に実行されるように、つまり印刷の直前に実行されるようにWordを設定することもできます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（3849）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

link日付を次の水曜日に強制する。