VBA统计WORD文档中汉字、英文及其组合出现的次数，并输出

最新推荐文章于 2023-12-15 02:39:47 发布

Fenrir9999

最新推荐文章于 2023-12-15 02:39:47 发布

阅读量2.3k

点赞数

分类专栏： VBA编程数据提取专利撰写数据优化

本文链接：https://blog.youkuaiyun.com/weixin_44559388/article/details/87861395

版权

本文介绍如何使用VBA在Word文档中统计汉字、英文及其组合的数量。文章提到，需要在文档中添加textbox1和commandbutton1，并去除标点。虽然代码简单，仅使用了for和do循环，但可以统计999个字符，并可扩展数组以统计更多。结合中文词典，还能输出特定词组的统计结果。

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

使用前，需要在word内插入一个textbox1和一个commandbutton1，然后去掉文档中的标点符号。笔者比较懒，未加入剔除标点的代码。在这里插入图片描述

理论上下述代码可以统计999个字符（含标点）的文本，如需增加文本数量，则只需要增加数组体积即可。
代码只是通过比较简单的for ，do循环实现，没啥技术含量哈。

Sub Button1_click()
    '统计词频
    Dim input_word As String
    Dim input_word_part(1 To 9999) As String
    Dim output_word_part(1 To 9999) As String
    Dim temp_input_word_part As String
    Dim count_word(1 To 9999) As Integer
    Dim count_output As String
    Dim input_len As Integer
    Dim i, j, k, p As Integer
    
'i为数组序号,'j为字符长度
'input_word_part()为全部元素
'output_word_part()为去重后元素


input_word = Trim(TextBox1.Text)
input_len = Len(input_word)

'数组赋值
i = 1
j = 1
Do While j <= 9
    If Len(Mid(input_word, i, j)) = j Then
        input_word_part(j * 1000 + i) = Mid(input_word

最低0.47元/天解锁文章