vba批量打印某个目录中所有word文档指定的页

　　如何打印某个目录中的所有WORD文档，并且，打印的是指定的页，想打印哪页就打印哪页？这得使用VBA来完成。

　　一、理论依据

　　通过依靠在EXCEL中使用VBA代码，来指定要打印的某个目录的所有WORD文档，想打印哪几页就打印哪页。

　　二、实现方法

　　在EXCEL中，添加一个按钮，然后再给该按钮添加功能代码即可。

　　代码如下

　　三、使用方法

　　上述功能代码准备好了以后，在EXCEL界面中，如下图。

　　点击上图的“打印”按钮，然后弹出选择目录的界面，只要选择好存放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*")
　　On Error GoTo ERROR1
　　Do While myfile <> ""
　　Set wApp = CreateObject("word.application")
　　With wApp
 　　 .documents.Open mypath & myfile
　　  '.activedocument.PrintOut '打印当前文档所有页
　　  '.ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="2", To:="2"　'打印当前文档从第几页到第几页
 　　 .ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="1,3"  '打印当前文档指定页，比如：Pages:="1-3"，Pages:="2-3"，Pages:="1,2-3"
　　  .Quit
　　End With
　　Set wApp = Nothing
　　myfile = Dir
　　Loop
　　Exit Sub   '如果没有这个退出过程语句，会一直执行下去，该句适合放在ERROR1:前
　　ERROR1:
　　    wApp.Application.Quit
　　End Sub

　　请注意，当你使用上述代码的时候，会弹出错误提示，请使用这个方法来解决，否则不能正常使用。http://www.dzwebs.net/5457.html