excel 批量打印word、excel所有sheet 的 vba代码

最新推荐文章于 2025-04-07 16:47:59 发布

"Kim"

最新推荐文章于 2025-04-07 16:47:59 发布

阅读量3.2k

点赞数 5

文章标签： excel word powerpoint

本文链接：https://blog.csdn.net/qq_41424132/article/details/130304454

版权

可以拉几个按钮用。

Sub 批量打印WORD文档()
     Dim fileToOpen, GetOpenFilename, App, iFile
     fileToOpen = Application.GetOpenFilename(filefilter:="Word文档(*.do*),*.do*", FilterIndex:=4, Title:="请选择要处理的文档(可多选)", MultiSelect:=True)
     If Not IsArray(fileToOpen) Then

        MsgBox "你没有选择文件", vbOKOnly, "提示": Exit Sub

     Else: Set App = CreateObject("Word.Application")
         For Each iFile In fileToOpen
             Set WrdDoc = App.Documents.Open(iFile)
             App.Documents(WrdDoc).PrintOut
             App.Documents(WrdDoc).Close False
             T = T + 1
         Next
     End If
     MsgBox "操作完成！！" & vbCrLf & "打印了 " & T & " 个文件。", vbOKOnly, "提示"
End Sub

Sub 批量打印Excel文档()