VBA形状对象

Question

我在互联网上提取了这段代码。出于某种原因，我遇到了类型不匹配的问题。 For Each objShape In reportDoc.Shapes行上的错误。也许原因非常明显，但我不明白为什么。

任何帮助都将不胜感激。

Sub UseTextBox()

Dim objShape As Shape
Dim reportDoc As Object

Set reportDoc = ActiveDocument
MsgBox reportDoc

For Each objShape In reportDoc.Shapes
If objShape.Type = msoTextBox Then
    MsgBox TextFrame.TextRange
End If
Next objShape

End Sub

Answer 1

我已经测试了您的代码。我没有遇到类型不匹配的问题。错误但行上的编译错误：

MsgBox TextFrame.TextRange

应该是

MsgBox objShape.TextFrame.TextRange