admin 管理员组

文章数量: 1184232


2024年3月27日发(作者：gitlab clone)

这里要输入编号→

让WORD在打印时自动加上打印编号并自动递增

问题的提出：

1、 QA打印记录时，有时需要一份打印多份，但每份的编号需要从初始编号开始每

份递增，如初始编号为123450，打印100份，则每份编号从123450到1235550；

2、 打印装订成册的记录，一般都是30-50页，页码从1到30-50

以上的操作，目前都是十分原始，只能每打印一份，改一次编码，再打印一份……毫无

效率

在网上找了一下，发现有同类的问题，其处理方式基本都是使用宏进行循环嵌套来完

成，即设定好初始编号和打印份数，让宏自动执行：在指定位置输入编号，打印，删除编

号，输入下一个递增的编号，打印，删除编号……

根据网上的宏代码，结合公司的情况，调试了一下，得到以下代码（红色字体为代码，

绿色为注释）：

Sub PrintCopies()

'

' 让WORD在打印时自动加上打印编号并随打印份数自动递增

这里要输入编号→

'

'

Dim CopyCount '定义变量CopyCount，用于定义打印份数

Dim StartNo '定义变量StartNo，用于定义打印起始编号

Dim PrintNo '定义变量PrintNo，定义打印时输入到文本中的编号

Dim i '定义变量i，循环打印时的辅助数值

Dim d '定义变量d，循环删除输入编号的辅助数值

CopyCount = InputBox("Please enter the number of copies you want to print",

"Please enter the number of copies you want to print", 1)

'弹出对话框，询问输入的份数，默认1份

If CopyCount = "" Then

Exit Sub

End If

'if语句，如果没输入打印份数，则结束宏的运行


本文标签： 打印 编号 输入

版权声明：本文标题：让WORD在打印时自动加上打印编号并自动递增 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711477384a596082.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。