Board logo

标题: [问题求助] 【已解决】vbs如何实现对多个word文档里的所有修订一次性全部接受? [打印本页]

作者: slovent    时间: 2016-11-10 11:01     标题: 【已解决】vbs如何实现对多个word文档里的所有修订一次性全部接受?

本帖最后由 slovent 于 2016-11-10 13:52 编辑

使用场景为:某一目录下有N多word文档,该文档是利用了批量替换关键字的方式将内容更改为各自需要的内容,但是因为替换工具生成的word文档是带审批模式的,上百个文档每天都需要挨个打开然后接受修订,太耗时耗力。
所以麻烦问问各位老师,vbs有办法能做到对该目录下的word文档批量接受所有修订吗?

万分感激。
作者: pcl_test    时间: 2016-11-10 12:17

本帖最后由 pcl_test 于 2017-10-20 15:08 编辑
  1. 'Set fso = CreateObject("Scripting.FileSystemObject")
  2. Set wordapp=CreateObject("Word.application")
  3. wordapp.Visible=True  '界面可见
  4. AcceptRevisions("D:\test.doc")  '批量操作自行解决
  5. wordapp.Quit
  6. Function AcceptRevisions(file)
  7.     Set doc = wordapp.Documents.Open(file)
  8.     If doc.ProtectionType=-1 Or doc.ReadOnly=false Then
  9.         doc.Revisions.AcceptAll
  10.         'doc.AcceptAllRevisions
  11.         doc.Save
  12.     End If
  13.     doc.Close
  14. End Function
复制代码

作者: slovent    时间: 2016-11-10 13:52

pcl_test 发表于 2016-11-10 12:17



pcl_test老师厉害,经测试可行!!!!
作者: piratezz    时间: 2019-11-8 14:17

pcl_test 发表于 2016-11-10 12:17


版主大人您好!

批量请自行解决,这个该如何解决呢?比如我把所有word文档都保存在了 D盘test文件夹下,但是每个word的文件名称不一样,有的扩展名是.doc 有的是docx。请问该怎么进行修改呢?

改成这样对吗? AcceptRevisions("D:\test\*.doc")  '批量操作自行解决

小白求解答




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