WordArt

ActiveDocument.Shapes.AddTextEffect(PresetTextEffect:=msoPresetTextEffect.msoTextEffect10, _ 
                                    Text:= , _ 
                                    FontName:= , 
                                    FontSize:= , 
                                    FontBold:=msoTriState.msoTrue, _ 
                                    FontItalic:=msoTriState.msoTrue, _ 
                                    Left:= , 
                                    Top:= , 
                                    Anchor:=False) 

Text - String. The text in the WordArt.
FontName - String. The name of the font used in the WordArt.
FontSize - Single. The size, in points, of the font used in the WordArt.
FontBold - MsoTriState. MsoTrue to bold the WordArt font.
FontItalic - MsoTriState. MsoTrue to italicize the WordArt font.
Left - Single. The position, measured in points, of the left edge of the WordArt shape relative to the anchor.
Top - Single. The position, measured in points, of the top edge of the WordArt shape relative to the anchor.