Word 2007 Steuerelement "Datumsauswahl": aktuelles Datum

Question

Hallo zusammen

Ich habe in einem Word 2007 Dokument (Vorlage mit Makros, *.dotm) das Steuerelement „Datumsauswahl“ eingefügt. Wie kann ich machen, dass dort automatisch das aktuelle Datum angezeigt wird?

(Wenn ich die Vorlage öffne, wird jeweils das Datum angezeigt, an welchem ich das Feld erstellt habe.)

Danke für eure Mithilfe.

Liebe Grüsse
donjuandan

Answer 1

Hallo,

das geht wie folgt:

Einfügen - Schnellbausteine - Feld

In der Kategorie "Datum und Uhrzeit" auswählen, dann Date und das entsprechende Datumsformat wählen.

Gruß

M.O.

Answer 2

Hallo M.O.

Danke für Deine Antwort. Mein Problem ist leider noch nicht gelöst.

Mit der Funktion „Datumsauswahl“ kann man per Mausklick einen Kalender öffnen und das entsprechende Datum auswählen.

Bei der Funktion, welche Du beschrieben hast, wird lediglich das aktuelle Datum eingefügt.

Ich möchte jedoch, dass bei meinen "Datumsauswahl"-Feld automatisch das aktuelle Datum angezeigt wird.

Liebe Grüsse
donjuandan

Answer 3

Hallo,

versuch es mal mit folgendem Makro:

Private Sub Document_Open()
ActiveDocument.ContentControls(1).Range.Text = Now
End Sub

Musst du vielleicht ggf. noch auf deine Verhältnisse anpassen.

Gruß

M.O.

Answer 4

Funktioniert leider auch nicht. Habe den Code unter "ThisDocument" eingefügt. Beim Öffnen der Vorlage (bzw. beim Erstellen eines neuen Dokuments) erscheint dann eine Fehlermeldung, worin steht, dass ich nicht berechtigt bin den geschützen Bereich zu bearbeiten. Habe den Dokumentschutz dann entfernt. Die Fehlermeldung erscheint dann nicht mehr.

Das Datum wurde jedoch auch nicht aktualisiert.

Answer 5

Hallo,

hast du noch weitere Steuerelemente in deiner Vorlage? Dann musst du ggf.die Zahl in der Klammer ändern.

Gruß

M.O.

Answer 6

Hallo,

noch mal ich. Ich habe es mal gerade mit einer Dokumentvorlage getestet - da funktioniert das Makro in der neuen Datei nicht. Da muss ich mir noch einmal ein paar Gedanken machen :-(.

Gruß

M.O.

Answer 7

Hallo,

probier mal das folgende Makro in deiner Vorlage aus:

Private Sub Document_New()
ActiveDocument.ContentControls(1).Range.Text = Date
End Sub

oder mit Dokumentschutz aufheben und Dokumentschutz für Formulare wieder setzen:

Private Sub Document_New()

'Prüfen ob Dokumentschutz besteht und ggf. aufheben
If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect

'aktuelles Datum wird geschrieben
ActiveDocument.ContentControls(1).Range.Text = Date

'Dokumentschutz für Formulare wird wieder gesetzt
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

End Sub

Gruß

M.O.