我有300多个word文档要打印,各个word有5页,但我只想打印第4页,如何批量打印出来啊

word

1个回答

写回答

691856346

2025-10-21 13:30

+ 关注

excel
excel

在命令提示符下,使用以下命令将所有.doc文件的名称保存到AAA.txt文件中:dir *.doc > AAA.txt然后,在excel中打开AAA.txt文件,并按列进行分隔。删除除文件名外的所有内容,只保留文件名,并将其放置在A列的A1单元格开始。接下来,可以编写VBA程序来逐一读取这些文件并打印第4页。以下是示例代码:vbnetSub 打印第4页()Dim arr As RangeSet arr = Range("A1:Z" & Rows.Count)For i = 1 To UBound(arr) Dim File As String File = "D:FILE" & arr(i, 1) & ".doc" Open File For Output As #1 Application.PrintOut FileName:=#, Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentWithMarkup, Copies:=1, Pages:=4, PageType:=wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0Close #1NextEnd Sub如果需要批量打印大量文件,也可以考虑请专业打字社的人来帮助。他们会使用专门的硬件和软件来处理大批量打印任务,并确保输出的准确性。

举报有用(4分享收藏

Copyright © 2025 IZhiDa.com All Rights Reserved.

知答 版权所有 粤ICP备2023042255号