word批量打印宏

Sub 批量打印()
'
' 批量打印 Macro
' 宏在 2011-8-12 由 jujumao 创建
'
Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document
' On Error Resume Next '忽略错误
'定义一个文件夹选取对话框
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
.Title = "请选择要处理的文档（可多选）"
.Filters.Clear '清除所有文件筛选器中的项目
.Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件
.AllowMultiSelect = True '允许多项选择
If .Show = -1 Then '确定
Application.ScreenUpdating = False
For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环
Set Doc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False)
With Doc
.Activate
Selection.PageSetup.TopMargin = CentimetersToPoints(1.8)
Selection.PageSetup.BottomMargin = CentimetersToPoints(1.8)
.PrintOut copies:=1, Pages:="3"
ActiveDocument.Save
.Close True
End With
Next
Application.ScreenUpdating = True
End If
End With
MsgBox "批量设置完毕!", vbInformation
End Sub