如何在TextRange下引用文本？

Question

所以我试着调试这个脚本，一个我无法通过的错误：

Dim pptText As String
pptText = Shape.TextFrame.TextRange

我在说需要的对象时出错了，当我这样做时：

Dim pptText
pptText = Shape.TextFrame.TextRange

它将在没有错误的情况下运行，但是pptText没有设置为我想要的文本。我试图引用这个形状的这一部分(用蓝色突出显示)，我希望它返回"hee"：https://imgur.com/a/wxACT

我试过了

Dim pptText
pptText = Shape.TextFrame.TextRange.Text

但这可能是一次可笑的尝试，但并不奏效。我不知道现在我能做什么。任何和所有的帮助感谢！

Answer 1

您还没有显示整个VBA代码，但我怀疑代码中对Shape的引用导致了错误。‘'Shape’不能是引用Shape对象类型的变量的名称，因为它是VBA中的一个保留字。

我设置了一个幻灯片，它有一个包含"hee“的文本框架，并且能够执行以下代码，没有错误，也没有预期的结果。

Option Explicit

Sub test()
    Dim sld As Slide
    Dim sh As Shape
    Dim tf As TextFrame
    Dim pptText As String

    Set sld = Application.ActiveWindow.View.Slide
    For Each sh In sld.Shapes
        Debug.Print sh.TextFrame.TextRange.Text
    Next sh
End Sub