在WORD内容更新之前，如何将实时更新关闭，等所有内容更新之后再打开！ ( 积分: 100 )

因为要每个单词要单独处理，所以实时更新比较慢，
可否在在WORD内容更新之前，将实时更新关闭，等所有内容更新之后再打开！

类似于Listview 的 BeginUpdate 和 EndUpdate

先谢谢

不好意思，关于取单词的方式已经找到
For i = 1 To ThisDocument.Words.Count
s = ThisDocument.Words(i).Text
End For

因为要每个单词要单独处理，所以实时更新比较慢，
可否在在WORD内容更新之前，将实时更新关闭，等所有内容更新之后再打开！

类似于Listview 的 BeginUpdate 和 EndUpdate

先谢谢

不好意思，关于取单词的方式已经找到
For i = 1 To ThisDocument.Words.Count
s = ThisDocument.Words(i).Text
End For

word比较麻烦, 可以取出它的 每个段落的内容,但是一个单词一个单词取出,估计有点麻烦, 我没有研究过单词之间是否有标示, 最好作个宏跟踪一下. 参考他的vb代码.写出delphi代码.