word中怎样用宏实现人名出现次数统计

abc0931

word中是如下面这样的人名，有很多个，有中文，或英文，有的人名里面有空格，但每个人名以@开头。有重复人名，现在是想能够实现每个人名出现次数进行统计。并把统计结果弄到另一个新打开的word文档中，最好按出现次数，由多到少排列。

不知有哪位高手可以帮助实现此功能，深表感谢！！！


@王小明 @John @张扬@Li Ming @Tom Johnson @王小明 @John @张扬@Li Ming @Tom Johnson @王小明 @John @张扬@Li Ming @Tom Johnson @John @张扬@Li Ming @Tom Johnson @王小明 @John @Li Ming @Tom Johnson @王小明 @John @张扬@Tom Johnson @John @Li Ming @Tom Johnson @John @Li Ming @王小明 @John @张扬@Li Ming @Tom Johnson @王小明 @John @Li Ming @Tom Johnson @王小明 @John @张扬@Li Ming @Tom Johnson @John @张扬@Li Ming @Tom Johnson @王小明 @John @Li Ming @Tom Johnson @王小明 @张扬@John @张扬@Li Ming @Tom Johnson @John @张扬@Li Ming

liuhoubin168

Sub ls()
  Nm = "张扬"
  a = ActiveDocument.Content.Text
  d = UBound(Split(a, Nm))
  MsgBox "『" & Nm & "』在全文中出现 " & d & " 次。"
End Sub

abc0931

liuhoubin168的代码可以用，感谢！但依然是手工活啊。

xyz74sc

拆分后用dictionary，自动排序的，统计就很容易了

liuhoubin168

在word中使用计时器.rar (21.29 KB, 下载次数: 47)

2015-9-8 11:30 上传

点击文件名下载附件

abc0931

感谢liuhoubin168的帮助！！

飞驰的椒麻鸡

欧耶，找到要用的代码了