Insert WordArt in modern Word applicatio

[Dossfm0q]

When I try to add Word Art in modern Microsoft office word application by using macro below to add word art in word 2010 or 2013m it look like word art in word, it is Ok with Excel .
Please help to provide me with macro can add new style Word Art TextEffect
Sub WordArt()

ActiveDocument.Shapes.AddTextEffect _
PresetTextEffect:=msoTextEffect1, _
Text:="Test", FontName:="Arial Black", _
FontSize:=36, FontBold:=False, _
FontItalic:=False, Left:=10, Top:=10
End Sub



Thanks