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

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

已邀请:

1 个回复

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

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

我认为您应该使用：

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

要回复问题请先登录或注册