1    Option Explicit 
2
3    Sub Text2WordArt()
4    ' 
5    ' Versieht einen Text mit dem aktuellen Datum und  
6    ' wandelt ihn in ein WordArt-Objekt 
7    ' 
8    Dim sText As String 
9    sText = InputBox("Bitte Text eingeben")
10   sText = sText & " " & Date 
11   ActiveDocument.Shapes.AddTextEffect(msoTextEffect1, sText, _
             "Arial Black", 36#, msoFalse, msoFalse, 213.75, 283.5).Select
12   End Sub