问题描述
||
这个问题已经在这里有了答案:
解决方法
我将假设“简化”是指“提高性能”,因为我怀疑这会太慢了。
我将避免使用“查找”来获得所有单词。代替:
Do While r.Find.Execute(findtext:=\"<*>\",MatchWildcards:=True,Wrap:=wdFindStop) = True
...
Loop
我认为您应该使用:
Dim w as Word
For each w In ActiveDocument.Words
...
Next