Automatische aktuelle Datumsangabe

[koter]

hallo lissycat,

ich habe das Makro so geändert, dass man einen Formatstring eingeben kann. Wenn man den Grafiktext "DatumHeute(dd. mmmm yyyy)" nennt wird das Datum so ausgegeben:
20. Januar 2013
weitere Beispiele im folgenden Bild:



Der Code dafür ist folgender:

Code:

Private Sub GlobalMacroStorage_DocumentBeforePrint(ByVal Doc As Document)
    Call AktDatum
End Sub

Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String)
    Call AktDatum
End Sub

Sub AktDatum()
    On Error Resume Next
    For Each x In ActiveDocument.SelectableShapes
        If x.Name = "DatumHeute" Then
            x.Text.Story = Date
        ElseIf Left(x.Name, 10) = "DatumHeute" Then
            ds = Split(x.Name, "(")
            FormatString = Left(ds(1), Len(ds(1)) - 1)
            x.Text.Story = Format$(Date, FormatString)
            FormatString = ""
        End If
    Next
End Sub

Bei mir funktioniert es so, das bedeutet aber leider nicht dass es bei Dir auch klappt. Du must es ausprobieren.

Ich würde es ja sonst gerne wissen, wie ich das selbst machen kann, ist das sehr schwer?

VBA ist nicht so schwer, wenn du aber noch nie programmiert hast, dauert es eine Weile es zu lernen. Corel liefert eine PDF-Datei mit einer Programmieranleitung mit, die kannst Du Dir ja mal ansehen.

Gruß

koter