访问文本框值

Question

我正在尝试制作一个自动文本框检查器。

在允许用户移动到下一页之前，我希望它确保每个文本框中至少有 30 个字符。 如何访问文本框的值？

具体的一段代码

ActivePresentation.Slides(ActivePresentation.SlideShowWindow.View.Slide.SlideIndex).Shapes("TextBox" & CStr(i)).Characters.Text

Public Sub GeneralCheck()

    Dim oSh As Shape
    Dim i As Integer
    Dim TextBoxCounter As Integer
    TextBoxCounter = 0
    On Error Resume Next
    
    For i = 1 To 4
    
        Set oSh = ActivePresentation.Slides(ActivePresentation.SlideShowWindow.View.Slide.SlideIndex).Shapes("TextBox" & CStr(i))
        If Err.Number = 0 Then  ' shape exists
            MsgBox ("I exist")
            MsgBox (Str(Len(ActivePresentation.Slides(2).Shapes("TextBox" & CStr(i)).Characters.Text)))
            TextBoxCounter = TextBoxCounter + 1
        Else
            MsgBox ("I don't exist")
        End If
    
    Next i
    
End Sub

更新：
更改后的代码仍然无法访问 TextBox 的文本。

Set oSh = ActivePresentation.SlideShowWindow.View.Slide.Shapes("TextBox" & CStr(i))
If Err.Number = 0 Then  ' shape exists
    MsgBox ("I exist")
    ShapeLength = ShapeLength + Len(oSh.TextFrame.TextRange.Text)
    MsgBox (ShapeLength)

For 循环似乎有效。

Answer 1

1. 您必须设置形状的名称：

2. 获取Shape Object：
   按名称： oShape = oSlide.Shapes("NameOfShape") 。
   按索引： oShape = oSlide.Shapes(index) 。

3. 要访问形状的文本：

    oShape.TextFrame.TextRange.Text

Answer 2

我需要获取文本框的值的代码是

oShape.OLEFormat.Object.Value