Board logo

标题: [文本处理] 请教一个vbs的问题，能否在修改word文档内容的时候，不打开文档修改 [打印本页]
作者: lhw    时间: 2024-1-4 23:34     标题: 请教一个vbs的问题，能否在修改word文档内容的时候，不打开文档修改

我从网上找了一个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    时间: 2024-1-5 03:57

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



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2