批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖
本帖最后由 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

返回列表