【用VBA实现Word自动打印序列号】

用VBA实现

一、打开需要打印的word文档，按Alt + F11 调查VBA编程窗口

二、如下图，插入代码模块

三、在上图右边窗口中贴入如下代码(英文编码)

Sub PrintCopies()Dim i As LongDim lngStart    '开始编号Dim lngCount    '结束编号Dim leftWord As StringDim rightWord As StringleftWord = "2204B"          '序列号前缀rightWord = ""              '序列号后缀lngStart = InputBox("开始打印编号", "请输入开始打印编号！", 1)If lngStart = "" ThenExit Sub    '开始编号为空退出End IflngCount = InputBox("结束打印编号", "请输入结束打印编号！", 1)If lngCount = "" ThenExit Sub    '结束编号为空退出End IfFor i = lngStart To lngCountSelection.Text = leftWord & Format(i, "00") & rightWord'Selection.TypeText Text:=leftWord & Format(i, "00")Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _PrintZoomPaperHeight:=0Selection.Text = ""NextEnd Sub

四、将鼠标焦点放在word文档指定位置，然后点击代码窗口的运行按钮（小三角），如下图

期间会提示用户输入开始编号和结束编号

五、效果如下图（敏感信息已删除）

【用VBA实现Word自动打印序列号】相关推荐

关于VBA编辑word自动生成报告
关于VBA编辑word自动生成报告这适合于图比较多,表比较多,并且报告格式单一,但每天需要大量出word报告的情况 -工具使用 -难点 -功能块参考文件工具如图片所示,虽然版本可以不同,但库的 ...
WORD 在打印时自动加上批量编号编号
如何让WORD在打印时自动加上打印份数编号问题的提出: 老婆所在的公司需要做2011年整年的文档和表格,里面的编号随着打印份数自动更新:比如需要打印100份,每份编号则按顺序从 0001排到 010 ...
用VB代码将十进制小数转二进制，也说下vba自动打印
VB代码十进制小数转二进制? 一个十进制转二进制的函数 Public Function D2B(D As Integer) As StringD2B = ""Do While D ...
利用VBA实现word文档手写体打印
利用VBA实现word文档手写体打印一.缘起二.实现 1.下载手写字体 2.导入书写字体 3.效果展示 4.利用VBA优化 5.优化后效果三.附件 1.A4纸打印效果 2.信纸打印效果 3.完整 ...
Excel VBA | 自动添加序列号
提示:程序代码是根据实际工作的需求编写的,仅供参考学习使用. 文章目录一.需要实现的功能 :自动添加序列号二.程序代码程序代码(一) 程序代码(二) 一.需要实现的功能 :自动添加序列号操作软 ...
利用VBA在Word中排出漂亮的代码
引言在学习编程的过程中,常常会使用word来做笔记,下面我将对如何利用word宏来进行代码的排版进行说明 1.工具我用的是word2007,word2003和word2010操作也差不多 2.基本 ...
word怎么显示计算机数字,如何使word文档自动显示字数统计 Word自动统计文档字数在哪里...
如何使word文档自动显示字数统计 Word自动统计文档字数在哪里 Word中有一个非常实用的字数统计功能,如要统计一个文档中的字数,直接在菜单栏中单击"审阅→字数统计",便可得到 ...
WPS中VBA控制word时出现调用错误
WPS中VBA控制word时出现调用错误背景, 在WPS的环境下, 我的WORD自动填写软件出错, 主要怀疑: 如果没有WORD文件被打开的状态下如果最后一个文件被关掉, 与EXCEL不同, 这时 ...
取消参考文献自动编号_利用Word自动维护参考文献的编号和引用
参考文献的标注本不是一件麻烦的事情,但是对参考文献编号后就成了一件麻烦的事情,产生的问题和图表公式编号的问题是一样的.手工维护这些编号是一件费力而且容易出错的事情,我们的目的是让Word自动维护这些编 ...

【用VBA实现Word自动打印序列号】

【用VBA实现Word自动打印序列号】相关推荐

最新文章

热门文章