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()