WORD 在打印时自动加上批量编号编号

最新推荐文章于 2024-11-15 06:32:42 发布

Micro_lee

最新推荐文章于 2024-11-15 06:32:42 发布

阅读量2.6w

点赞数 1

文章标签： microsoft 文档 string vba variables office

本文链接：https://blog.csdn.net/Micro_lee/article/details/6270997

版权

本文介绍如何使用Word宏实现打印时自动加上编号，包括两种方法：宏循环嵌套和通过设置文档变量。详细步骤包括创建宏、设置打印份数和起始编号，适用于批量打印需求。

摘要由CSDN通过智能技术生成

如何让WORD在打印时自动加上打印份数编号

问题的提出：老婆所在的公司需要做2011年整年的文档和表格，里面的编号随着打印份数自动更新：比如需要打印100份，每份编号则按顺序从 0001排到 0100。

在网上google 了一下，也有不少网友提出了类似的问题：

“公司有一份调查表，需要打印100份，每份都要有一个编号，从000001到000100。如何让WORD在打印时自动加上打印份数编号？”

这个需要用到word 的宏操作，感觉它和ps里面的action 一样，就是可以让用户自定义一些操作，让宏来重复执行。word2007 有宏录制功能（在view视窗栏里面）。

方法一：宏循环嵌套

先手动几次：改编号——打印——改下一个编号——再打印，让宏来记录这些动作。然后查看这些基本动作的宏代码，在里面加入循环和嵌套。

经过自己几次尝试和修改，得到如下宏代码：

Sub PrintCopies()
'
' Macro1 Macro
'
'
    Dim i As Long
    Dim lngStart
    Dim lngCount
    lngCount = InputBox("Please enter the number of copies you want to print", "Please enter the number of copies you want to print", 1)
    If lngCount = "" Then
        Exit Sub
    End If
    lngStart = InputBox("Enter the starting number you want to print", "Enter the starting number you want to print", 1)
    If lngStart = "" Then
        Exit Sub
    End If
    For i = lngStart To lngCount
    If i < 10 Then
    Selection.TypeText Text:="000" & i&
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _