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

巧用“宏”功能制作公文份数序号 ◎文/ 李荣清 由于受文件紧急程度和印刷数量的限制，部分公文仍需由办公室人员自行印制，而公文印制过程中用人工打号机打印公文份数序号不仅速度慢、效率低，而且由于用力不均、用墨不匀，普遍存在着公文份数序号着墨不实、不均或印制偏斜不直、多份公文之间序号印刷不能套正等缺陷，影响了机关公文的制发速度和印刷质量。针对这种情况，我们在实际工作中运用WORD 中“宏”的功能巧妙地解决了这个问题。（涉密文件不适合使用“宏”功能。）这一方法不需要另外购置软件和添加新的硬件，而是借助WORD 软件中的“宏”功能，嵌入自编的“宏”程序，使用简单便捷，易于操作。如果用具有手册打印功能、能打印A3 纸张的彩色打印机印制公文，则效果更佳。 一、硬件配备 装有WORD2003 或以上版本的计算机（WORD2007 打开“宏”的步骤略有不同，其他操作一致）；具有打印A3、A4 及双面打印功能的彩色打印机（如打印机只有打印A4 纸张功能，则只能制作平订公文，而不能制作骑马订手册公文）。 二、编辑“宏”程序 新建WORD 文档 ，在“工具”栏中打开“宏”。 在“宏”选项卡“宏（M）”中输入“PrintCopiesA3”或“PrintCopiesA4”后，点击“创建”按钮。 在弹出的“microsoft visual basic”编辑页面代码的编辑栏中，编辑打印A3 或A4 纸张文件的“宏”程序。 代码： Sub PrintCopiesA3() Dim i% Dim lngStart% Dim lngCount% Dim Prange$ Dim Ptype$ Ptype = wdPrintRangeOfPages lngStart = InputBox(请输入打印的起始编号, 起始编号设置, 1) lngCount = InputBox(请输入要打印的份数, 打印份数设置, 1) Prange = InputBox(请输入打印范围 + Chr(13) + 提示：默认为全部，如输入页码请用英式,隔开, 打印范围设置) If (Prange = ) Then Ptype = wdPrintAllDocument End If For i = 1 To lngCount If lngStart + i - 1 10 Then Selection.TypeText Text:=00000 (lngStart + i - 1) Application.PrintOut FileName:=, Range:=Ptype, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:=Prange, PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=16839, _ PrintZoomPaperHeight:=23814 End If If (lngStart + i - 1 = 10) And (lngStart + i - 1 100) Then Selection.TypeText Text:=0000 (lngStart + i - 1) Application.PrintOut FileName:=, Range:=Ptype, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:=Prange, PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=16839, _ PrintZoomPaperHeight:=23814 End If If (lngStart + i - 1 = 100) And (lngStart + i - 1 1000) Then Selection.TypeText Text:=000 (lngStart + i - 1) Application.PrintOut FileName:=, Range:=Ptype, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:=Prange, Pa