With ActiveWindow.Selection.ShapeRange
If .Type = ksoTextEffect Then
With .TextEffect
.Text = "重设艺术字内容和格式"
.FONTBOLD = ksoTrue
.FONTSIZE = 10
.FONTITALIC = ksoTrue
End With
End If
End With