zoukankan      html  css  js  c++  java
  • 同一目录下批处理执行Word宏

    Option Explicit
    
    Const c_strRootFolder = "D:要处理的doc或docx文件"        ' 包含需要处理文档的文件夹
    
    On Error Resume Next
    
    Dim oApp, oDoc
    Dim fso, oFolder, oFile
    
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set oFolder = fso.GetFolder(c_strRootFolder)
    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True
    
    For Each oFile In oFolder.Files
        If (UCase(Right(oFile.Path, 4)) = ".DOC") Or (UCase(Right(oFile.Path, 5)) = ".DOCX") Then
            Set oDoc = oApp.Documents.Open(oFile.Path)
            oApp.Run "要执行的宏"   '执行宏
            oDoc.Close True
        End If
    Next
    
    oApp.Quit False
    
    Set oFolder = Nothing
    Set fso = Nothing
    Set oApp = Nothing
    
    MsgBox "完成!"

    注意事项:

    1、宏提前写好,保存在word模板中。

    2、只适用于windows。

    3、将该代码保存为.vbs文件,右键“打开”运行即可。运行结束,会弹窗“完成”。

  • 相关阅读:
    R语言中的logical(0)和numeric(0)以及赋值问题
    创建hadoop用户
    虚拟机安装
    spark1-MapReduce
    arcgis1-shp转成mdb
    Actor-配置Maven
    scala6-单词计数(map(),flatMap())
    scala5-数组
    scala4-函数
    scala3-for循环
  • 原文地址:https://www.cnblogs.com/yanghao2008/p/10878729.html
Copyright © 2011-2022 走看看