ExcelVBA一键批量打印文件夹中的所有word文档

ExcelVBA一键批量打印文件夹中的所有word文档

==================

【问题】总公司有收到有几百个word文件，每一个都要打印5份，几W个呢！

【常规作法】打开一个~打印~关闭~提示是否保存~否，再来一个……………………，天啊，要重复做到什么时候。

=======================

【目标】一键完成，

【用法】把下面的代码放在一个Excel文件中，一健~选定所有文件~确定

【代码】

========放在Excel文件中批量打印word文件=======

Sub print_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

=======VBA Printout语法====

表达式.PrintOut(From, To, Copies, Preview,ActivePrinter, PrintToFile, Collate, PrToFileName)

表达式 一个代表 Range 对象的变量。其实指的就是打印的范围了。

参数介绍

下面我们给出Printout的中文语法

打印范围.PrintOut(从哪页开始打, 打到第几页, 打印份数, 打印求是否预览, 打印机名称, 是否打印到文件, 是否打印多个副本,打印到文件的名称)

二、Printout使用举例

Ａ、设置打印第1页到第5页 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=5

Ｂ、要打印的3份 Sheets("工作表名称").PrintOut Copies:=3