Re^3: Aktuelles Datum mittels Makro einfügen

leider funktioniert das nicht. Was mache ich wohl falsch.
Hier ist mal der Code:

Also bei mir geht's auch. Habe allerdings Word 2000. 97 sollte
aber das gleiche sein. Auch das direkte Verwenden von "Date"
müßte gehen (ohne den Umweg über die Variable).
Probiere einfach mal "MsgBox Date".

Übrigens würde ich die Variablen definieren. Muß aber auch
nicht unbedingt sein. Und um Zeichenketten zu verknüpfen
wird seit Version ? der "&"-Operator verwendet. Das "+"
gibt's bloß noch wegen Abwärtskompatibilität.
Achso, und die Klammern bei Funktions-/Subaufrufen kann
man weglassen, wenn der Rückgabewert nicht übernommen
wird: Func Arg1, Arg2 aber W = Func(Arg1, Arg2).
Das aber nur nebenbei. Modifizierter Code ist unten.

Viele Grüße aus Köln, 38 Minuten vor Karnevalstart

Kristian


Sub AddFileDescription()
Dim Descr As String
Dim CurrentDate As Date

    If ActiveDocument.Language = dsCPP Then
        ActiveDocument.Selection.StartOfLine
        
        CurrentDate = Date
        
        Descr = vbLf & "/**" & vbLf
        Descr = Descr & " @file " & ActiveDocument.Name & vbLf & vbLf
        Descr = Descr & " Copyright (c) 2001, URS Universal Robot Systems GmbH & Co. KG. All rights reseverd." & vbLf & vbLf
        Descr = Descr & " @brief " & vbLf & vbLf
        Descr = Descr & " @author Daniel Westrich" & vbLf & vbLf
        Descr = Descr & " @date " & CurrentDate & vbLf & vbLf
        Descr = Descr & " @par Changes:" & vbLf
        Descr = Descr & " - "
        Descr = Descr & vbLf & "*/"
        
        ActiveDocument.Selection = Descr
    Else 'dcCPP
        MsgBox "Ein aktives C/C++-Dokument muss geöffnet sein !!!"
    End If 'dcCPP
End Sub 'AddFileDescription()