想改变艺术字的属性，但苦于没有动作，请各位看看解决思路

想改变艺术字的属性，但苦于没有动作，请各位看看
'改变艺术字的属性
'Dim myShape As Shape
'On Error Resume Next
'Selection.GoTo what:=wdGoToPage, which:=wdGoToAbsolute, Count:=3 '将光标落至第三页
'ActiveDocument.Shapes("myShape").Delete
'Set myShape = ActiveDocument.Shapes.AddTextEffect(PresetTextEffect:=15, Text:="添加艺术字体", FontName:="宋体", FontSize:=36, FontBold:=False, FontItalic:=False, Left:=200, Top:=400)
'ActiveDocument.Shapes(1).WrapFormat.Type = 15 '艺术字形状
'ActiveDocument.Shapes(1).TextEffect.NormalizedHeight = msoTriStateToggle '艺术字字母高度
'ActiveDocument.Shapes(1).TextEffect.Alignment = msoTextEffectAlignmentLetterJustify '对齐方式
'ActiveDocument.Shapes(1).TextEffect.Tracking = 453 '字符间距

------解决方案--------------------
'ActiveDocument.Shapes("myShape").Delete
你删了怎么看?