365 体育在线网址_365bet体育线上平台_谁有365体育在线网址新手入门导读[视频教程]365 体育在线网址_365bet体育线上平台_谁有365体育在线网址基础视频教程[视频教程]VBS基础视频教程
[365 体育在线网址_365bet体育线上平台_谁有365体育在线网址文件精品]365 体育在线网址_365bet体育线上平台_谁有365体育在线网址版照片整理器[365 体育在线网址_365bet体育线上平台_谁有365体育在线网址文件精品]纯365 体育在线网址_365bet体育线上平台_谁有365体育在线网址备份&还原驱动在线第三方下载
返回列表 发帖

[问题求助] 【已解决】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

返回列表