AddTextEffect Method Example

This example adds WordArt that contains the text "Test Text" to the active document and anchors the WordArt to the second paragraph.

ActiveDocument.Shapes.AddTextEffect _
    PresetTextEffect:=msoTextEffect11, _
    Text:="Test Text", _
    FontName:="Arial Black", _
    FontSize:=36, _
    FontBold:=True, _
    FontItalic:=False, _
    Left:=InchesToPoints(1), _
    Top:=InchesToPoints(1), _
    Anchor:=ActiveDocument.Paragraphs(2).Range