巧用“宏”功能制作公文份数序号

《巧用“宏”功能制作公文份数序号》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、巧用“宏”功能制作公文份数序号◎文/李荣清由于受文件紧急程度和印刷数量的限制，部分公文仍需由办公室人员自行印制，而公文印制过程中用人工打号机打印公文份数序号不仅速度慢、效率低，而且由于用力不均、用墨不匀，普遍存在着公文份数序号着墨不实、不均或印制偏斜不直、多份公文之间序号印刷不能套正等缺陷，影响了机关公文的制发速度和印刷质量。针对这种情况，我们在实际工作中运用WORD中“宏”的功能巧妙地解决了这个问题。（涉密文件不适合使用“宏”功能。）这一方法不需要另外购置软件和添加新的硬件，而是借助WORD软件中的“宏”功能，嵌

2、入自编的“宏”程序，使用简单便捷，易于操作。如果用具有手册打印功能、能打印A3纸张的彩色打印机印制公文，则效果更佳。一、硬件配备装有WORD2003或以上版本的计算机（WORD2007打开“宏”的步骤略有不同，其他操作一致）；具有打印A3、A4及双面打印功能的彩色打印机（如打印机只有打印A4纸张功能，则只能制作平订公文，而不能制作骑马订手册公文）。二、编辑“宏”程序新建WORD文档，在“工具”栏中打开“宏”。在“宏”选项卡“宏（M）”中输入“PrintCopiesA3”或“PrintCopiesA4”后，点击“创建

3、”按钮。在弹出的“microsoftvisualbasic”编辑页面代码的编辑栏中，编辑打印A3或A4纸张文件的“宏”程序。代码：SubPrintCopiesA3()Dimi%DimlngStart%DimlngCount%DimPrange$DimPtype$Ptype=wdPrintRangeOfPageslngStart=InputBox("请输入打印的起始编号","起始编号设置",1)lngCount=InputBox("请输入要打印的份数","打印份数设置",1)Prange=InputBox("请输入打

4、印范围"+Chr(13)+"提示：默认为全部，如输入页码请用英式"",""隔开","打印范围设置")If(Prange="")ThenPtype=wdPrintAllDocumentEndIfFori=1TolngCountIflngStart+i-1<10ThenSelection.TypeTextText:="00000"&(lngStart+i-1)Application.PrintOutFileName:="",Range:=Ptype,Item:=_wdPrintDocumentContent,Copie

5、s:=1,Pages:=Prange,PageType:=wdPrintAllPages,_ManualDuplexPrint:=False,Collate:=True,Background:=True,PrintToFile:=_False,PrintZoomColumn:=0,PrintZoomRow:=0,PrintZoomPaperWidth:=16839,_PrintZoomPaperHeight:=23814EndIfIf(lngStart+i-1>=10)And(lngStart+i-1<100)Th

6、enSelection.TypeTextText:="0000"&(lngStart+i-1)Application.PrintOutFileName:="",Range:=Ptype,Item:=_wdPrintDocumentContent,Copies:=1,Pages:=Prange,PageType:=wdPrintAllPages,_ManualDuplexPrint:=False,Collate:=True,Background:=True,PrintToFile:=_False,PrintZoomC

7、olumn:=0,PrintZoomRow:=0,PrintZoomPaperWidth:=16839,_PrintZoomPaperHeight:=23814EndIfIf(lngStart+i-1>=100)And(lngStart+i-1<1000)ThenSelection.TypeTextText:="000"&(lngStart+i-1)Application.PrintOutFileName:="",Range:=Ptype,Item:=_wdPrintDocumentContent,Copies:=

8、1,Pages:=Prange,PageType:=wdPrintAllPages,_ManualDuplexPrint:=False,Collate:=True,Background:=True,PrintToFile:=_False,PrintZoomColumn:=0,PrintZoomRow:=0,PrintZoomPaperWidth:=16839