小编spr*_*eup的帖子

目前我有完全在TextBox中计算单词字符的代码,但我如何从Textboxes开始计算WORDS.我只是想不通.下面我添加了需要修改的代码:

Sub CountCharFromTextBox()
Dim shp As Shape
Dim wks As Worksheet
Dim lTxtBoxWords As Long
    For Each wks In ActiveWorkbook.Worksheets
        For Each shp In wks.Shapes
            If TypeName(shp) <> "GroupObject" Then
                lTxtBoxWords = shp.TextFrame.Characters.Count
            End If
        Next shp
        Next wks
        MsgBox lTxtBoxWords
End Sub

我只是找不到TextFrame的任何类似属性.TextFrame2都不起作用.我不知道现在该做什么.

希望任何人都能找到改变的地方.