VBA实用小程序78：统计工作簿内文本框和批注中的字符及单词数

excelperfect

下面的程序可以统计工作簿所有工作表中文本框和批注内的字符和单词的数量。

Sub CountCharWorBOXCMT()

    Dim wks As Worksheet

    Dim lCommentch As Long

    Dim lCommentwords As Long

    Dim lTxtBoxChar As Long

    Dim lTxtBoxCharWords As Long

    Dim objShp As Shape

    Dim sMsg As String

    Dim vbaArray

    Application.ScreenUpdating = False

    lCommentch = 0

    lCommentwords = 0

    lTxtBoxChar = 0

    lTxtBoxCharWords = 0

    For Each wks In ActiveWorkbook.Worksheets

        For Each objShp In wks.Shapes

            ' 统计文本框中的字符和单词

            If objShp.Type = 17 Then

                IfLen(objShp.TextFrame2.TextRange.Characters.Text) <> 0 Then

                    lTxtBoxChar = lTxtBoxChar +objShp.TextFrame.Characters.Count

                    vbaArray =VBA.Split(objShp.TextFrame2.TextRange.Characters.Text, ' ')

                    lTxtBoxCharWords =lTxtBoxCharWords + UBound(vbaArray) + 1

                End If

            End If

            ' 统计批注中的字符和单词

            If objShp.Type = 4 Then

                With objShp.TextFrame.Characters

                    lCommentch = lCommentch +Len(.Text)

                    vbaArray = VBA.Split(.Text,' ')

                    lCommentwords =lCommentwords + UBound(vbaArray) + 1

                End With

            End If

        Next objShp

    Next wks

    sMsg = '文本框中的字符数: ' & Format(lTxtBoxChar,'### ### ##0') & vbCrLf

    sMsg = sMsg & '文本框中的单词数: ' &Format(lTxtBoxCharWords, '### ### ##0') & vbCrLf & vbCrLf

    sMsg = sMsg & '批注中的字符数: ' &Format(lCommentch, '### ### ##0') & vbCrLf

    sMsg = sMsg & '批注中的单词数: ' &Format(lCommentwords, '### ### ##0') & vbCrLf & vbCrLf

    MsgBox Prompt:=sMsg, Title:='统计汇总'

    Application.ScreenUpdating = True

End Sub

在示例工作簿中运行后的效果如下图1所示。

图1

小结：

1. 注意遍历工作表中特定形状的程序代码。

2. 注意统计单词的代码技巧。

注：本程序整理自ozgrid.com论坛，供有兴趣的朋友学习参考。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料。