如何判断艺术字的样式,字体,字号？
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