Text (mit Datum) in ein WordArt-Objekt wandeln

Text (mit Datum) in ein WordArt-Objekt wandeln

Aktuelle Seite:
/vba/wordart.htm

Letzte Änderung: 24.06.2006

Mit folgendem Makro kann ein beliebiger Text, mit dem aktuellen Datum versehen, als WordArt-Objekt in das Document eingefügt werden. Soll kein Datum angehängt werden, muss die Zeile 10 auskommentiert werden.

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