Word文档的中文字词频统计

FENGJUN · 发表于 2012-6-21 10:49

sylun 发表于 2012-6-13 18:16
是不很准确，主要原因是文档有语法和拼写错误时可能会导致遍历Words集合对象成员时重复计算，为何会这样还 ...

谢谢您的关注和修改，经测试代码统计结果还是不准确。以下版主的代码最为准确，但有些词组会统计不到：
Sub UniqWordsCount()
'很准确
'直接输出到新文档
Dim aword As Range
Dim aString As String, cstring As String
aString = ChineseFont(ThisDocument.Range.Text, True)
'净化处理一下
'Debug.Print aString
For Each aword In ThisDocument.Words

      If ChineseFont(aword, True) <> "" Then
         ' If aword <> " " And VBA.Asc(aword) <> 13 Then
         If InStr(1, cstring, aword & ":" & Chr(9)) Then
            '如果累积生成的字串cstring中已经存在，则什么也不做，避免重复
         Else
            arr = Split(aString, aword)
            cstring = cstring & aword & ":" & Chr(9) & UBound(arr) & Chr(13)
         End If
      End If
Next
Documents.Add
Selection.InsertBefore cstring
End Sub

ak47ok · 发表于 2012-6-22 07:08

因工作需要、开始关注WORD的VBA了。
高手如云、学习了，谢谢！

seymon · 发表于 2012-7-20 09:39

sylun 发表于 2012-6-13 18:16
是不很准确，主要原因是文档有语法和拼写错误时可能会导致遍历Words集合对象成员时重复计算，为何会这样还 ...

楼主，我想问个问题，是否可以往word的字典里面加词组呢？

mrl · 发表于 2013-6-9 10:33

请问楼主是否有对英文词汇的统计这种编码？

610005274 · 发表于 2013-10-27 11:03

各位大神请问这是什么的代码啊？如何用呢？

desperadoxtt · 发表于 2013-11-14 08:56

挺好用学习

oylw · 发表于 2015-8-8 21:03

看着这一串串的代码头晕！

praijna · 发表于 2019-8-30 11:19

FENGJUN 发表于 2012-6-21 10:49
谢谢您的关注和修改，经测试代码统计结果还是不准确。以下版主的代码最为准确，但有些词组会统计不到：
...

老师，您好！
ChineseFont，这句不能执行，怎么弄？

praijna · 发表于 2019-8-30 20:34

FENGJUN 发表于 2012-6-21 10:49
谢谢您的关注和修改，经测试代码统计结果还是不准确。以下版主的代码最为准确，但有些词组会统计不到：
...

老师，这段代码怎样可以执行？

daibao88 · 发表于 2019-8-30 21:02

ChineseFont wordvba本身没这个，代码应该漏掉这个自定义函数

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

[分享] Word文档的中文字词频统计