如何用Word统计文本出现的次数(转)
　有的时候，我们要在一个文档中查找某个文本出现的总次数，也就是查找该文本的总数量，例如在一份违纪登记表格中查找一个姓名被记载的总数，类似的应用还有很多。但Word没有这样的功能，我编写了一个宏，使Word具有统计单个文本总数量的功能。下面介绍实现方法。 

图1
　　第一步 单击Word菜单[工具]→[宏]→[宏]，输入宏的名称“FindText” ，然后单击[创建]按钮。 
　　 
　　第二步 在弹出的VisualBasic编辑器的代码窗口中完成以下内容： 
　　 
　　Sub FindText（） 
　　 
　　Text = InputBox（"请输入要查找的文本："， "提示"） 
　　 
　　With ActiveDocument.Content.Find 
　　 
　　Do While .Execute（FindText：=Text） = True 
　　 
　　tim = tim + 1 
　　 
　　Loop 
　　 
　　End With 
　　 
　　MsgBox （"当前文档查找到 " + Str（tim） + " 个 " + Text）， 48， "完成" 
　　 
　　End Sub 
　　 
　　第三步 录入完毕后，单击菜单[文件]→[关闭并返回到Micrcsoft后Word]. 
　　 
　　第四步 单击菜单[工具]→[自定义]，单击“命令”选项卡，在“类别”中选择“宏”，将右边的“Normal.NewMacros.FindText”命令拖入“编辑”菜单中，并右击拖入的命令，在“命名”框中重命名为“查找文本数量”（如图）。 
　　 
　　以后要统计文本数量时，只要单击[编辑]→[查找文本数量]，按提示输入要查找的内容，单击[确定]就得到统计结果。

                    

                                                    来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/14102/viewspace-115253/，如需转载，请注明出处，否则将追究法律责任。
                                            

                
转载于:http://blog.itpub.net/14102/viewspace-115253/

统计文本出现的每个每个单词的次数，并列出频率最高的前五个单词

# coding=utf-8
from random import randint
# 读取文本
with open('test.txt') as t:
    content=t.readlines()
    # print(content)
    # 对读取到的文本进行分词，以空位符为分割符
    content[0:-1]=content[0].split()
    mapping=dict()
    # 将列表中的单词转化为小写
    for s in content:
        words=[s.lower()]
        # 计算单词的个数并写入字典中
        for word in words:
            mapping[word]=mapping.get(word,0)+1
    #         对字典中的元素进行排序
    mapping_list=sorted(mapping.items(),key=lambda i:i[1],reverse=True)
    # 输出出现频率最高的五个单词
    print(mapping_list[0:5])

最后的结果：

[('and', 4), ('of', 4), ('the', 4), ('to', 3), ('semantic', 3)]

 

问题描述
有时在遇到一个文本需要统计文本内词汇的次数的时候，可以用一个简单的python程序来实现。
解决方案
首先需要的是一个文本文件(.txt)格式(文本内词汇以空格分隔)，因为需要的是一个程序，所以要考虑如何将文件打开而不是采用复制粘贴的方式。这时就要用到open()的方式来打开文档，然后通过read()读取其中内容，再将词汇作为key，出现次数作为values存入字典。
图 1 txt文件内容
再通过open和read函数来读取文件：open_file=open("text.txt")
file_txt=open_file.read()
然后再创建一个空字典，将所有出现的每个词汇作为key保存到字典中，对文本从开始到结束，循环处理每个词汇，并将词汇设置为一个字典的key，将其value设置为1，如果已经存在该词汇的key，说明该词汇已经使用过，就将value累积加1。
代码示例：def wordcount(readtxt):
readlist = readtxt.split()
dict1={}
for every_world in readlist:
if every_world in dict1:
dict1[every_world] += 1
else:
dict1[every_world] = 1
return dict1
print(wordcount(file_txt))
这里加了def函数把该程序封装成一个函数。
最后输出得到词汇出现的字典：
图 2 形成字典

如何统计某个单元格区域内相同的文本出现的次数？
例如：下图中，B2:B4单元格区域中，每一行都包括了“小小筱，allen，Excel，小小筱，Word”这5个文本值，我们可以看到“小小筱”在B2:B4单元格区域中出现了6次，那用数组公式是怎样子算出来的呢？
解题思路可以有以下4步：
①先计算B2:B4单元格区域中每一行的字符总数；
②把要统计的字符替换为空，计算除去统计字符之后，其余字符的个数；
③用第①步的字符总个数减去第②步除去统计文本之后的字符总个数，即可得到每一行要统计文本的字符个数；
④计算B2:B4单元格区域中统计文本出现的次数。
具体操作步骤如下：
1、计算B3:B4单元格区域中每一行的字符总数。
下图中，F2、F3、F4单元格中的公式分别为：=LEN(B2)、=LEN(B3)、=LEN(B4)，结果分别为24、25、23，也就是B2单元格中的字符个数为24，B3单元格中的字符个数为25，B4单元格中的字符个数为23。
2、把要统计的字符替换为空，计算除去统计字符之后，其余字符的个数。
下图中，F8、F9、F10单元格中的公式分别为：=LEN(SUBSTITUTE(B2,"小小筱",""))、=LEN(SUBSTITUTE(B3,"小小筱",""))、=LEN(SUBSTITUTE(B4,"小小筱",""))，结果分别为18、19、17，也就是B2单元格中除去“小小筱”之后的字符个数为18，B3单元格中除去“小小筱”之后的字符个数为19，B4单元格中除去“小小筱”之后的字符个数为17。
3、用第1步的字符总个数减去第2步除去统计字符之后的字符总数，即可得到每一行要统计文本的字符个数。
下图中，F14、F15、F16单元格中的公式分别为：=LEN(B2)-LEN(SUBSTITUTE(B2,"小小筱",""))、=LEN(B3)-LEN(SUBSTITUTE(B3,"小小筱",""))、=LEN(B4)-LEN(SUBSTITUTE(B4,"小小筱",""))，结果分别为6、6、6，也就是B2单元格中“小小筱”的字符总个数为6，B3单元格中“小小筱”的字符总个数为6，B4单元格中“小小筱”的字符总个数为6。
4、计算B2:B4单元格区域中统计文本出现的次数。
下图中，F20、F21、F22单元格中的公式分别为：=(LEN(B2)-LEN(SUBSTITUTE(B2,"小小筱","")))/LEN("小小筱")、=(LEN(B3)-LEN(SUBSTITUTE(B3,"小小筱","")))/LEN("小小筱")、=(LEN(B4)-LEN(SUBSTITUTE(B4,"小小筱","")))/LEN("小小筱")，结果分别为2、2、2，也就是B2单元格中“小小筱”出现了2次，B3单元格中“小小筱”出现了2次，B4单元格中“小小筱”出现了2次。
5、最后一步，将公式整合成一条数组公式，就是我们想要的结果。
下图中，在E26单元格中输入公式：=SUM(LEN(B2:B4)-LEN(SUBSTITUTE(B2:B4,E25,"")))/LEN(E25)，按“Ctrl+Shift+Enter”结束公式输入即可。
6、动图演示如下。
今天就跟大家分享到这里，如果你想要学习更多的办公技巧，可以持续关注我的头条号哦~