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

praijna

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









感恩！

413191246se

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

1. Sub test字频统计()
   
2.     Dim i&, j&, t$, n&, s$, x&
   
3.     With ActiveDocument
   
4.         x = .Paragraphs.Count
   
5.         j = .Characters.Count
   
6.         For i = 1 To j
   
7.             t = .Characters(i)
   
8.             If t = vbCr Then GoTo sk
   
9.             If t = ChrW(160) Then GoTo sk
   
10.             If t = vbTab Then GoTo sk
    
11.             If t Like "[，；：、。“！？” 　]" Then GoTo sk
    
12.             If .Characters(i).Font.Color = wdColorRed Then GoTo sk
    
13.             With .Content.Find
    
14.                 .ClearFormatting
    
15.                 .Text = t
    
16.                 .Forward = True
    
17.                 .MatchWildcards = True
    
18.                 Do While .Execute
    
19.                     With .Parent
    
20.                         n = n + 1
    
21.                         .Font.Color = wdColorRed
    
22.                         .Start = .End
    
23.                     End With
    
24.                 Loop
    
25.             End With
    
26.             s = s & t & " " & n & vbTab
    
27.             n = 0
    
28. sk:
    
29.         Next i
    
30.     End With
    
31.     Selection.EndKey 6
    
32.     Selection.TypeText Text:=vbCr & s
    
33. '''
    
34.     With ActiveDocument
    
35.         .Paragraphs.Last.Range.Find.Execute "^9", , , , , , , , , "^p", 2
    
36.         .Paragraphs.Last.Range.Delete
    
37.         .Range(Start:=ActiveDocument.Paragraphs(x + 1).Range.Start, End:=ActiveDocument.Content.End).Select
    
38.     End With
    
39. '
    
40.     With Selection
    
41.         .ConvertToTable Separator:=4, NumColumns:=2, AutoFitBehavior:=wdAutoFitFixed
    
42.         .Tables(1).Style = "网格型"
    
43. '
    
44.         .Sort ExcludeHeader:=False, FieldNumber:="列 2", SortFieldType:= _
    
45.             wdSortFieldNumeric, SortOrder:=wdSortOrderDescending, FieldNumber2:="", _
    
46.             SortFieldType2:=wdSortFieldSyllable, SortOrder2:=wdSortOrderAscending, _
    
47.             FieldNumber3:="", SortFieldType3:=wdSortFieldSyllable, SortOrder3:= _
    
48.             wdSortOrderAscending, Separator:=wdSortSeparateByCommas, SortColumn:= _
    
49.             False, CaseSensitive:=False, LanguageID:=wdSimplifiedChinese, _
    
50.             SubFieldNumber:="段落数", SubFieldNumber2:="段落数", SubFieldNumber3:="段落数"
    
51.     End With
    
52.     MsgBox "处理完毕！！！！！！！！！！", 0 + 48, "字频统计"
    
53. End Sub

复制代码

daibao88

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

413191246se

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

praijna

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

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

praijna

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

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

praijna

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

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

daibao88

用字典也可以

413191246se

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

praijna

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

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