word vba 打印活动文档目录下所有文件，注意事项：活动文档未保存地址为空

如果活动文档未保存，那么它的文件路径为空，无法获取到所在目录路径。在这种情况下，可以提示用户手动选择要打印的文件夹，然后遍历该文件夹下所有doc和docx文件并逐个打印。以下是相应的VBA代码： ``` Sub PrintAllFilesInFolder() Dim folderPath As String Dim fileName As String Dim doc As Document '提示用户选择要打印的文件夹 With Application.FileDialog(msoFileDialogFolderPicker) .Title = "请选择要打印的文件夹" If .Show = -1 Then folderPath = .SelectedItems(1) & "\" Else MsgBox "您取消了选择文件夹！", vbExclamation, "提示" Exit Sub End If End With '遍历文件夹下所有doc和docx文件 fileName = Dir(folderPath & "*.doc*") Do While fileName <> "" '打开文件并打印 Set doc = Documents.Open(folderPath & fileName) doc.PrintOut doc.Close SaveChanges:=False '获取下一个文件名 fileName = Dir() Loop End Sub ``` 注意：在选择文件夹时，用户需要确保只选择包含doc和docx文件的文件夹，否则可能会导致程序出错或打印不完整。