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
    

要回复问题请先登录注册