
excel
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如果需要批量打印大量文件,也可以考虑请专业打字社的人来帮助。他们会使用专门的硬件和软件来处理大批量打印任务,并确保输出的准确性。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号