我在文档中插入了艺术字，如何通过代码检测艺术字格式是否正确呢

Question

我的代码：  
If doc.Shapes.Count <= 0 Then 
            txtJieguo.Text = txtJieguo.Text & "考点3、艺术字添加失败，艺术字不存在" & vbCrLf 
        Else 
            MsgBox(doc.Shapes(1).TextEffect.Text) 
            MsgBox(doc.Shapes(1).TextEffect.PresetTextEffect) 
            If doc.Shapes(1).TextEffect.Text = "探索宇宙的奥秘" And doc.Shapes(1).TextEffect.PresetTextEffect = Microsoft.Office.Core.MsoPresetTextEffect.msoTextEffect13 Then 
                txtJieguo.Text = txtJieguo.Text & "考点3、艺术字添加成功" & vbCrLf 
            Else 
                txtJieguo.Text = txtJieguo.Text & "考点3、艺术字加失败，格式或文本不正确" & vbCrLf 
            End If 
        End If 发现Shapes数量为0。 也就是说，没有Shape类型的对象，但是我明明插入了艺术字和图片了

Answer 1

把Shapes 换成 InlineShapes