繁体字文章中汉字使用频率的统计方法（VBA）感恩 sylun 老师帮助！

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

本帖最后由 praijna 于 2019-8-29 07:16 编辑

各位老师：
恳请老师提供“繁体字文章中汉字使用频率的统计方法（VBA）”！

感恩！

413191246se · 发表于 2019-8-22 21:30

本帖最后由 413191246se 于 2019-8-22 21:38 编辑

* 楼主，我觉得繁体字和简体字统计字频应该是一样的，请做一个小型示例文档，检测试用一下我编的宏：（如果正式应用于大型文档，可能运行时间较长，请耐心等待，不要动键盘和鼠标。如果不满意，请等待高人援手）

Sub test字频统计()
Dim i&, j&, t$, n&, s$, x&
With ActiveDocument
x = .Paragraphs.Count
j = .Characters.Count
For i = 1 To j
t = .Characters(i)
If t = vbCr Then GoTo sk
If t = ChrW(160) Then GoTo sk
If t = vbTab Then GoTo sk
If t Like "[，；：、。“！？” 　]" Then GoTo sk
If .Characters(i).Font.Color = wdColorRed Then GoTo sk
With .Content.Find
.ClearFormatting
.Text = t
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
n = n + 1
.Font.Color = wdColorRed
.Start = .End
End With
Loop
End With
s = s & t & " " & n & vbTab
n = 0
sk:
Next i
End With
Selection.EndKey 6
Selection.TypeText Text:=vbCr & s
'''
With ActiveDocument
.Paragraphs.Last.Range.Find.Execute "^9", , , , , , , , , "^p", 2
.Paragraphs.Last.Range.Delete
.Range(Start:=ActiveDocument.Paragraphs(x + 1).Range.Start, End:=ActiveDocument.Content.End).Select
End With
'
With Selection
.ConvertToTable Separator:=4, NumColumns:=2, AutoFitBehavior:=wdAutoFitFixed
.Tables(1).Style = "网格型"
'
.Sort ExcludeHeader:=False, FieldNumber:="列 2", SortFieldType:= _
wdSortFieldNumeric, SortOrder:=wdSortOrderDescending, FieldNumber2:="", _
SortFieldType2:=wdSortFieldSyllable, SortOrder2:=wdSortOrderAscending, _
FieldNumber3:="", SortFieldType3:=wdSortFieldSyllable, SortOrder3:= _
wdSortOrderAscending, Separator:=wdSortSeparateByCommas, SortColumn:= _
False, CaseSensitive:=False, LanguageID:=wdSimplifiedChinese, _
SubFieldNumber:="段落数", SubFieldNumber2:="段落数", SubFieldNumber3:="段落数"
End With
MsgBox "处理完毕！！！！！！！！！！", 0 + 48, "字频统计"
End Sub

复制代码

daibao88 · 发表于 2019-8-22 22:00

本帖最后由 daibao88 于 2019-8-22 22:12 编辑

建议str = ActiveDocument.range.Text ，Replace 替换标点符号等为空
不停的Replace 替换 str第一个字符为空，并记录（该字符及替换前后的str长度差，就是改字符的数量）入数组，直至str为空
数组排序输出结果
在内存操作，应该比在文档操作更快一些吧，并且因为替换为空，循环次数最少。
个人愚见，未试。

413191246se · 发表于 2019-8-22 23:46

daibao88 老师：您的思路算法极好！不过，我不会数组排序等，故我只能出文档代码，更好的内存操作代码还须老师亲自出。

praijna · 发表于 2019-8-23 09:38

413191246se 发表于 2019-8-22 21:30
* 楼主，我觉得繁体字和简体字统计字频应该是一样的，请做一个小型示例文档，检测试用一下我编的宏：（如果 ...

老师，早上好！
我有用过守柔老师的那个统计代码，会有部分繁体字统计不到。正在运行您给的代码！

praijna · 发表于 2019-8-23 09:40

daibao88 发表于 2019-8-22 22:00
建议str = ActiveDocument.range.Text ，Replace 替换标点符号等为空
不停的Replace 替换 str第一个字符 ...

老师，您好！
能否麻烦您给一下代码？

praijna · 发表于 2019-8-23 13:35

413191246se 发表于 2019-8-22 21:30
* 楼主，我觉得繁体字和简体字统计字频应该是一样的，请做一个小型示例文档，检测试用一下我编的宏：（如果 ...

试了一段比较难的繁体文字，结果是正确的，感恩老师！

daibao88 · 发表于 2019-8-23 20:55

用字典也可以

413191246se · 发表于 2019-8-23 21:50

函数、数组、字典、递归、类……都不会，戴老师讲得太高级！

praijna · 发表于 2019-8-25 12:08

413191246se 发表于 2019-8-23 21:50
函数、数组、字典、递归、类……都不会，戴老师讲得太高级！

您的方法是可行的，只是执行速度太慢，我学一下用字典看看。感恩！

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

[已解决] 繁体字文章中汉字使用频率的统计方法（VBA）感恩 sylun 老师帮助！