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

slovent

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

万分感激。

pcl_test

'Set fso = CreateObject("Scripting.FileSystemObject")
Set wordapp=CreateObject("Word.application")
wordapp.Visible=True  '界面可见

AcceptRevisions("D:\test.doc")  '批量操作自行解决

wordapp.Quit

Function AcceptRevisions(file)
    Set doc = wordapp.Documents.Open(file)
    If doc.ProtectionType=-1 Or doc.ReadOnly=false Then
        doc.Revisions.AcceptAll
        'doc.AcceptAllRevisions
        doc.Save
    End If
    doc.Close
End Function
复制代码

slovent

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

pcl_test老师厉害，经测试可行！！！！

piratezz

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

版主大人您好！

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

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

小白求解答