VBA文件夹选择器和批量打印word文档小程序

除非注明，文章均为战战如疯原创，转载请保留链接: http://www.zhanzhanrufeng.com/cat4/238.html，VBA交流群273624828。

今天分享一个批量打印word的小程序。在Win7系统中右键批量打印一次只能选择15个，多了就不成了，像有些工作一次需要打印上百张的就比较麻烦了，这个小程序可以实现一键打印某个文件夹里的所有word文件。

Sub Print1()
Dim mypath, myfile, wApp
With Application.FileDialog(msoFileDialogFolderPicker) '选择相应的文件夹
If .Show = False Then Exit Sub
mypath = .SelectedItems(1) & "\"
End With
myfile = Dir(mypath & "*.doc*") '遍历该文件夹下的所有word文件
Do While myfile <> ""
Set wApp = CreateObject("word.application")
With wApp
.documents.Open mypath & myfile '打印
.activedocument.PrintOut
.Quit
End With
Set wApp = Nothing
myfile = Dir
Loop
End Sub

首先利用FileDialog选择要打印的文件夹，然后对该文件夹下的word文件进行遍历，依次执行打印操作。这个程序很简单，但比较实用，感兴趣的可以下载下来用。

本节示例文件下载地址：http://pan.baidu.com/s/1c00AEQW。