用word 宏 实现快速打印10个双面文档

来源：百度知道 编辑：UC知道 时间：2024/06/14 10:46:39
我使用的一个软件可以同时生成10个或少于10个的word文档，同时要求双面打印，但没有双面打印机，每次只能打印一面，然后手工翻动纸张到另一面，从而实现双面打印，这样每打印一次就需要手工翻动一次，过于麻烦，
是否可以用word的 宏 实现同时打印10个或少于10个的word文档的 第一页，然后把10张一起翻面，再打印第二页，从而可以实现只用翻动一次纸张，分单双页码打印，实现用单面打印机的双面打印工作。
最好用宏命令，或者其他软件也可以，单要操作简单实用。要用宏命令的话，不一定只在一台机器使用，问其他机器使用同一个宏 怎么实现。
10个文档的文件名是连续自动生成的数字

我知道一种就是先打单页,再重放进去打反面的.第一步:启动Excel 2003(其他版本请仿照操作)，执行“工具→宏→Visual Basic编辑器”命令，进入Visual Basic编辑状态

第二步:在右侧的“工程资源管理器”区域中，选中“VBAProject(PERNOSAL.XLS)”选项，执行“插入→模块”命令，插入一个新模块

小提示

“PERNOSAL.XLS”叫做“个人宏工作簿”，第一次使用宏功能时，需要进入下述操作，添加“个人宏工作簿”:在Excel中，执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框(如图2)，输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑操作，然后按“停止录制”工具栏上的“停止录制”按钮，系统即可自动添加“个人宏工作簿”。

第三步:双击“模块1”进入代码输入区域，将下述代码输入其中:

Sub dy()

On Error Resume Next

x = ExecuteExcel4Macro("Get.Document(50)")

For i = 1 To Int(x / 2) + 1

ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1

Next i

MsgBox "请将打印出的纸张反向装入纸槽中", vbOKOnly, "打印另一面"

For j = 1 To Int(x / 2) + 1

ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j

Next j

End Sub

第四步:输入完成后，关闭Visual Basic编辑窗口返回。

添加按钮

第一步:执行“工具→自定义”命令，打开“自定义”对话