ActiveDocument.InlineShapes.AddTextEffect PresetTextEffect:=ksoTextEffect9, Text:="this is a test", FontName:="Arial Black", FONTSIZE:=36, FONTBOLD:=ksoTrue, FONTITALIC:=ksoFalse