word怎么批量打印文件

发布网友 发布时间：2022-03-08 05:21

我来回答

共2个回答

热心网友 时间：2022-03-08 06:51

直接在打印的地方设置需要打印的内容

热心网友 时间：2022-03-08 08:09

通过vba代码可实现批量打印文件。
第一步：新建一个WORD文档，按快捷键【ALT+F11】打开VBE编辑器。

第二步：右击【工程资源管理器】，选择【插入】，【模块】。

第三步：把以上代码粘贴到【模块1】对应的代码编辑窗口。
代码：

Sub WORD文档遍历打印()

Dim Dm As Document

Dim MyPath As String

Dim MyName As String

Dim k As Integer

Application.ScreenUpdating = False '关闭屏幕更新

MyPath = ThisDocument.Path &"\" '取当前文件所在目录

MyName = Dir(MyPath &"*.doc*") '用DIR函数遍历到当前目录下第一个WORD文档

Do While MyName <> "" '如果文件名不为空，则开始循环

If MyName <> ThisDocument.NameThen '屏蔽当前代码所在的文档

k = k + 1 '记录文档数量

Set Dm = Documents.Open(MyPath& MyName)

'打开遍历到的当前WORD文档

Dm.PrintOut '打印当前WORD文档

Dm.Close False '关闭当前WORD文档

Set Dm = Nothing

MyName = Dir '遍历下一个WORD文档

End If

Loop

Application.ScreenUpdating = True '恢复屏幕更新

MsgBox "打印完毕，共计文件数量：" & k '返回打印结果

End Sub

第四步：保存文档，保存到要打印的900份文档同目录下，保存文件格式为（启用宏的Word文档(*.docm)

第五步：喝茶，光标定位在代码内部，按F5快捷键，执行代码，就可以去喝茶了。

温馨提示：打印机要放足纸哟~