统计word中有多少不同的字（宏）

小孩子学识字需要统计word中出现的不同文字的个数
（如需统计字频：统计txt文件中不同文字的个数及每字出现的频率（通过Python））

如下：

代码如下：

————————————————————————————————————

Sub 统计重复与不重复汉字()
    Dim AllText As String, B As String
    Dim i As Long, StartTime As Single
    Dim j As Long
    Dim OnlyText As String
    Dim ResultStr As String
    StartTime = Timer
    j = 0 '所有字符统计变量初始化
    AllText = ActiveDocument.Content.Text
    For i = 1 To Len(AllText)
        B = Mid(AllText, i, 1)
        If B Like "[一-龥]" Then '如果属于汉字字符(CJK统一汉字字符集)
            j = j + 1 '统计总的字符数，word自己统计有问题
            If OnlyText = "" Then
                OnlyText &