能否自动统计出word中出现最多的汉字的次数，汉字不确定。

suntaste · 发表于 2016-8-5 17:36

如题，在汉字不知道的情况下，统计文档中汉字出现最多的词或是词组？能否实现？非常感谢大神。

hhjjpp · 发表于 2016-8-6 09:11

vba区分不了词与词组的区别！

suntaste · 发表于 2016-8-7 11:33

已经找到相关软件，谢谢

ymwangming · 发表于 2019-5-25 14:22

哥，我也遇到了你的问题，你是怎么实现的，谢谢

相见是缘8 · 发表于 2019-5-25 14:32

本帖最后由相见是缘8 于 2019-5-25 14:56 编辑

ymwangming 发表于 2019-5-25 14:22
哥，我也遇到了你的问题，你是怎么实现的，谢谢

转一个老师的代码给你：

Sub 统计文档中不同汉字出现的次数()
'可统计文档中共有多少个不同的汉字，以及不同汉字出现的次数，但繁体古文中有的汉字不能被统计到。
Dim AChar, tChar As String
Const MaxChar = 3000
Dim Chars(MaxChar) As String
Dim Freq(MaxChar) As Integer
Dim CharNum As Integer
Dim Found As Boolean
Dim i, j, k, Temp As Integer
CharNum = 0
Found = False
For Each aCharacter In ActiveDocument.Characters
AChar = aCharacter
If AscB(AChar) > 128 Then
For i = 1 To CharNum
If Chars(i) = AChar Then
Freq(i) = Freq(i) + 1
Found = True
Exit For
End If
Next i
If Not Found Then
CharNum = CharNum + 1
Chars(CharNum) = AChar
Freq(CharNum) = 1
End If
Found = False
End If
Next aCharacter
For i = 1 To CharNum - 1
k = i
For j = i + 1 To CharNum
If Freq(j) > Freq(k) Then k = j
Next j
If k <> i Then
tChar = Chars(i)
Chars(i) = Chars(k)
Chars(k) = tChar
Temp = Freq(i)
Freq(i) = Freq(k)
Freq(k) = Temp
End If
Next i
tmpName = ActiveDocument.AttachedTemplate.FullName
Documents.Add Template:=tmpName, NewTemplate:=False
With Selection
.TypeText "文档中共有" & CharNum & "个不同字符" & vbCrLf
.TypeText "字符名称" & vbTab & "出现的频率" & vbCrLf
For i = 1 To CharNum
.TypeText Text:=Chars(i) & vbTab & Freq(i) & vbCrLf
Next i
End With
End Sub

praijna · 发表于 2019-8-1 14:47

相见是缘8 发表于 2019-5-25 14:32
转一个老师的代码给你：

Sub 统计文档中不同汉字出现的次数()

老师，有没有能统计繁体字的代码？

najagay · 发表于 2019-8-2 00:25

相见是缘8 发表于 2019-5-25 14:32
转一个老师的代码给你：

Sub 统计文档中不同汉字出现的次数()

如何计算比如阿拉伯字母在内的其他文字的数量？
　　ءتىلشىمىز شى شين 5 - ايدىڭ 13 - كۇنى ۇرىمجىدەن حابارلايدى. اۆتونوميالى رايوندىق دامۋ جانە رەفورما كوميتەتىنەن ۇعىسۋىمىزشا، تاياۋدا اۆتونوميالى رايوندىق دامۋ جانە رەفورما كوميتەتى قازىنا، مادەنيەت جانە ساياحات، جاراتىلىستىق بايلىق سياقتى تاراۋلارمەن بىرلەسىپ، رايونىمىزدىڭ ءىس جۇزىندىك جاعدايىمەن ۇشتاستىرىپ، «اۋىل - قىستاق ساياحاتىنىڭ دامۋىن جەبەپ، ساپاسىن جوعارىلاتىپ، دەڭگەيىن كوتەرۋدىڭ اتقارۋ جوباسىن (2019 جىلدان 2020 - جىلعا دەيىن)» جاساعان ءارى باسىپ تاراتقان.

413191246se · 发表于 2019-8-2 00:55

* 楼主，首先把中西文分开；然后，用全部替换的方法分开。
* 下面是小资料：
注意事项：
[!一-﨩]中，！表示否定的意思，
一-﨩表示所有的汉字。

数字通配符 [0-9]

汉字通配符 [一-﨩]

中文通配符 [!^1-^127]

换行符与段落标记 [^11^13]

413191246se · 发表于 2019-8-2 08:04

楼上朋友，请查找[^1-^127]替换为a，勾选使用通配符，全部替换即可。

praijna · 发表于 2019-8-22 14:42

413191246se 发表于 2019-8-2 00:55
* 楼主，首先把中西文分开；然后，用全部替换的方法分开。
* 下面是小资料：
注意事项：

老师您好！
有没有统计繁体字频率的代码分享？

感恩！

		自动登录	找回密码
密码			免费注册

[求助] 能否自动统计出word中出现最多的汉字的次数，汉字不确定。