VBA批量打印Word文档的问题

学习VS交流

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

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

学习VS交流

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

好的，谢谢老师了！

godtale

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

pacer007

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

zyqn518

标记，留用，多谢

[V]

学习了，非常感谢~