如何用代码批量打印文件夹内所有word文档？

zzpsx

文件夹内有多个word文档，多选这些文档，右键没有打印菜单，如何用代码批量打印文件夹内所有word文档？

413191246se

* 楼主，下面的 3 个宏，执行 1 次，打印 1 套；执行 2 次，打印 2 套（选定文件夹及子文件夹中所有 Word 文档）：

1. Sub LoopFolder_xiaohualu_copy()
   
2.     Dim d, n&, m&, x&, mydir, dk, doc As Document, i&
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     d(SelectFolder) = ""
   
5.     Do While n < d.Count
   
6.         dk = d.keys
   
7.         mydir = Dir(dk(n), vbDirectory)
   
8.         Do While mydir <> ""
   
9.             If mydir <> "." And mydir <> ".." Then
   
10.                 If GetAttr(dk(n) & mydir) = vbDirectory Then
    
11.                     d(dk(n) & mydir & "") = ""
    
12.                     m = m + 1
    
13.                 Else
    
14.                     x = x + 1
    
15.                     If dk(n) & mydir Like "*.doc*" Then
    
16.                         Set doc = Documents.Open(FileName:=dk(n) & mydir)
    
17.                         dokcopy
    
18.                         doc.Close SaveChanges:=wdSaveChanges
    
19.                         i = i + 1
    
20.                     End If
    
21.                 End If
    
22.             End If
    
23.             mydir = Dir
    
24.         Loop
    
25.         n = n + 1
    
26.     Loop
    
27.     Set d = Nothing
    
28.     Set dk = Nothing
    
29.     MsgBox "文件夹包含 " & x & " 个文件！" & m & " 个子文件夹！" & vbCr & "共处理 Word 文档(*.docx/*.doc) " & i & " 个！", 0 + 48
    
30. End Sub
    
31. Sub dokcopy()
    
32.     ActiveDocument.PrintOut
    
33. End Sub
    
34. Function SelectFolderCopy() As String
    
35.     With Application.FileDialog(msoFileDialogFolderPicker)
    
36.         If .Show Then SelectFolderCopy = .SelectedItems(1) & "" Else End
    
37.     End With
    
38.     If MsgBox("是否处理文件夹 " & """" & SelectFolderCopy & """" & " ?", 4 + 16) = vbNo Then End
    
39. End Function

复制代码