WORD 文档中的艺术字

如何判断艺术字的样式,字体,字号？ Sub macro1() Dim myShape As Shape, s(4) As String For Each myShape In ActiveDocument.Shapes If myShape.Type = msoTextEffect Then s(0) = "名称：" & myShape.Name s(1) = "文本：" & myShape.TextEffect.Text s(2) = "字体：" & myShape.TextEffect.FontName s(3) = "字号：" & myShape.TextEffect.FontSize s(4) = "对齐方式：" & myShape.TextEffect.Alignment MsgBox Join(s, vbCrLf) End If Next End Sub