选定所有文件~确定
【代码】
========放在Excel文件中批量打印word文件=======
Sub print_word_()
Dim fileToOpen, GetOpenFilename, App...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...参数介绍
下面我们给出Printout的中文语法
打印范围.PrintOut(从哪页开始打, 打到第几页, 打印份数, 打印求是否预览, 打印机名称, 是否打印到文件, 是否打印多个副本,打印到文件的名称