Wenn Alastair ein Dokument druckt, möchte er das Datum in diesem Dokument automatisch auf das Datum des folgenden Mittwochs setzen. Wenn heute beispielsweise Donnerstag, der 13. ist, möchte Alastair Mittwoch, den 19. anzeigen, wenn das Dokument jetzt oder an einem beliebigen Tag bis einschließlich des 19. selbst gedruckt wird. Ab nächsten Donnerstag (20.) möchte Alastair, dass das Druckdatum der 26. ist und so weiter.

Es gibt keine vernünftige oder bequeme Möglichkeit, dies mithilfe von Feldern in einem Dokument zu tun. (Ich habe einige Feldkombinationen zum Auswählen eines zukünftigen Datums gesehen, aber sie sind wirklich gigantisch und nicht für den gelegentlichen Gebrauch geeignet.) Eine bessere Lösung besteht darin, ein Makro zu verwenden, um an der Einfügemarke das Datum des nächsten Mittwochs einzufügen sein. Das folgende Beispiel zeigt, wie einfach ein solches Makro sein kann:

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

Wenn Sie das Makro ausführen, weist es der Variablen dMyDate das aktuelle Datum zu. Diese Variable wird kontinuierlich erhöht, bis der Wochentag 4 (ein Mittwoch) ist. Das Datum wird dann formatiert und an der Stelle der Einfügemarke eingegeben.

Das Makro kann leicht geändert werden, um das Datum des nächsten Mittwochs immer an einer bestimmten Stelle des Dokuments zu platzieren. Sie müssen es lediglich so ändern, dass es beispielsweise nach einem Lesezeichen sucht und das Lesezeichen durch das formatierte Datum ersetzt. Sie können Word sogar so einrichten, dass das Makro während des BeforePrint-Ereignisses ausgeführt wird. Dies bedeutet, dass es unmittelbar vor dem Drucken ausgeführt wird.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (13243) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier:

Erzwingen des Datums auf den nächsten Mittwoch.