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

最新推荐文章于 2024-01-18 18:32:46 发布

shgg_

最新推荐文章于 2024-01-18 18:32:46 发布

阅读量1.1k

点赞数

分类专栏：杂

本文链接：https://blog.csdn.net/weixin_43982286/article/details/103093745

版权

这篇博客主要介绍如何使用宏来统计Word文档中不重复汉字的数量，适用于帮助孩子学习识字，提供了一段实现此功能的代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

如下：
word——视图——宏
创建宏

代码如下：

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


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 OnlyT