请教一个vbs的问题，能否在修改word文档内容的时候，不打开文档修改

lhw

我从网上找了一个vbs代码可以替换word文档里面的内容但是每次都要打开文档，能不能修改成在不打开文档的情况下替换word文档的内容。

1. Const wdReplaceAll  = 2
   
2. 
   
3. Set objWord = CreateObject("Word.Application")
   
4. objWord.Visible = True
   
5. 
   
6. Set objDoc = objWord.Documents.Open("C:\Scripts\Test.doc")
   
7. Set objSelection = objWord.Selection
   
8. 
   
9. objSelection.Find.Text = "11"
   
10. objSelection.Find.Forward = TRUE
    
11. objSelection.Find.MatchWholeWord = TRUE
    
12. 
    
13. objSelection.Find.Replacement.Text = "22"
    
14. 
    
15. objSelection.Find.Execute ,,,,,,,,,,wdReplaceAll

复制代码

wanghan519

Visible那里改成False，眼不见心不烦。。。