有个宏，在Word 2000下运行速度（处理一个600多页的一个Word文档）2分钟，在Word 2003中运行要8分钟。
1、打开慢。通过取消勾选“Tools--》Options--》General--》Update automatic links at Open”解决
2、运行时，每次执行替换都要“Word is repaginating”，从而导致程序缓慢。可以通过“Tools--》Options--》General--》Background repagination”可以取消从新编页，但是该选项却是灰色的，不能取消。原来View--》Print Layout的状态下不能取消Background repagination。而View--》General状态下便可以了。
所以在替换语句前加上：
With ActiveWindow.View
.Type = wdNormalView
End With
即可。这时便不会执行费时的repagitation了。现在在Word 2003中运行该宏只用1.5分钟。
另外，可以通过语句：
ActiveDocument.UndoClear
清除Undo栈，否则对大文件执行宏时，可能会有不能Undo的警告。
1、打开慢。通过取消勾选“Tools--》Options--》General--》Update automatic links at Open”解决
2、运行时，每次执行替换都要“Word is repaginating”，从而导致程序缓慢。可以通过“Tools--》Options--》General--》Background repagination”可以取消从新编页，但是该选项却是灰色的，不能取消。原来View--》Print Layout的状态下不能取消Background repagination。而View--》General状态下便可以了。
所以在替换语句前加上：
With ActiveWindow.View
.Type = wdNormalView
End With
即可。这时便不会执行费时的repagitation了。现在在Word 2003中运行该宏只用1.5分钟。
另外，可以通过语句：
ActiveDocument.UndoClear
清除Undo栈，否则对大文件执行宏时，可能会有不能Undo的警告。
本文转自 h2appy 51CTO博客，原文链接：http://blog.51cto.com/h2appy/234672，如需转载请自行联系原作者
