WORD VBA计算单词出现次数[重复]

如何解决WORD VBA计算单词出现次数[重复]

||                                                                                                                   这个问题已经在这里有了答案：                                                      

解决方法

我将假设“简化”是指“提高性能”，因为我怀疑这会太慢了。 我将避免使用“查找”来获得所有单词。代替：

Do While r.Find.Execute(findtext:=\"<*>\",MatchWildcards:=True,Wrap:=wdFindStop) = True
   ...
Loop

我认为您应该使用：

Dim w as Word
For each w In ActiveDocument.Words
   ...
Next