[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

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

万分感激。

本帖最后由 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
复制代码

TOP

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



pcl_test老师厉害,经测试可行!!!!

TOP

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


版主大人您好!

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

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

小白求解答

TOP

返回列表