如何给这段代码提高运行速度

jstvic

1. Sub 更新word中所有链接()
   
2. 
   
3. 
   
4. 
   
5. Application.ScreenUpdating = False
   
6. 
   
7. Application.ScreenRefresh
   
8. 
   
9. Dim f As Field
   
10. 
    
11. For Each f In ActiveDocument.Fields
    
12. 
    
13. f.Locked = False
    
14. 
    
15. f.Select
    
16. 
    
17. f.Update
    
18. 
    
19. f.Locked = True
    
20. 
    
21. Next f
    
22. 
    
23. Application.ScreenUpdating = True
    
24. 
    
25. End Sub

复制代码

经过测试  1000个链接 要更新5分钟  ，有没有办法 更快的提高运行速度

jstvic

哪位大神。帮忙指导一下

batmanbbs

既然所有的域代码都更新，直接 ActiveDocument.Fields.Update