word vba 打印活动文档目录下所有文件

以下是打印活动文档目录下所有文件的VBA代码： ``` Sub PrintAllFilesInFolder() Dim folderPath As String Dim fileName As String Dim doc As Document '获取活动文档所在目录路径 folderPath = Left(ActiveDocument.FullName, InStrRev(ActiveDocument.FullName, "\")) '遍历目录下所有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文件，并逐个打开并打印。如果目录下有大量文件，可能会导致程序运行缓慢或崩溃，请谨慎使用。建议先备份好目录下的文件再执行该代码。