VBA批量打印Word文档的问题

学习VS交流 · 发表于 2015-1-24 14:07

VBA批量打印Word文档的问题
下面这个代码是放在EXCEL中批量打印WORD文档的
怎样改成放在WORD中批量打印WORD文档
请老师们帮帮忙，谢谢大家了!

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

413191246se · 发表于 2015-1-24 23:11

楼主，我的模板——辅助（按钮）——循环遍历文件夹——批量打印WORD文档，自己找吧！

学习VS交流 · 发表于 2015-1-25 15:43

413191246se 发表于 2015-1-24 23:11
楼主，我的模板——辅助（按钮）——循环遍历文件夹——批量打印WORD文档，自己找吧！

好的，谢谢老师了！

godtale · 发表于 2016-4-16 11:45

Word中如何调出打印机选择功能？

pacer007 · 发表于 2019-1-11 21:16

盖章留印，正好用的上！！！！

zyqn518 · 发表于 2019-1-23 10:53

标记，留用，多谢

[V] · 发表于 2022-11-15 15:58

学习了，非常感谢~

		自动登录	找回密码
密码			免费注册

[求助] VBA批量打印Word文档的问题