问题:批量打印文件夹中的多个Word文档
方法1	利用VBA程序
打开一个新的Excel文档(不要求在要打印的Word文档所在的文件夹中),选择【开发工具】一栏(没有的话在栏目一行任意一处单击右键,点 【自定义功能区】,在【主选项卡】 表中的选项中选上 【开发工具】,点击确定),点击Visual Basic,双击 Sheet1(Sheet1)表,在出现的代码框中粘贴:
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
点击运行按钮 (F5),会提示”请选择要处理的文档(可多选)”,按提示操作即可。
注:打印设置会按打印机首选配置进行,批量打印前请先在打印机设置页面设好打印格式。