工作中有时候需要用到Word打印一些测试证书，内容基本都一致，只有序列号部分有变动，自已捣鼓了一段Vba程序，实现了简单的自动打印功能，遇到有几百张序列号的时候，可以开启程序自动打印，自己就可以腾出手来做其它的事了。品牌型号：word系统版本：winxp,win7,xin10软件版本：word2003,word2007方法/步骤1/9分步阅读

复制以下代码；

2/9

Sub autoSN()

Dim posX As Double

Dim posY As Double

Dim leftWord As String

Dim rightWord As String

Dim startNumber As String

Dim count As Integer

Dim s1 As Shape

posX = Selection.Information(wdHorizontalPositionRelativeToPage)

posY = Selection.Information(wdVerticalPositionRelativeToPage)

leftWord = abc 序列号前缀

startNumber = 100000

rightWord = 序列号后缀

count = 1 序列号的个数

For i = 1 To count

Set s1 = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, posX, posY, Selection.Font.Size * 8, Selection.Font.Size * 1.5)

s1.TextFrame.TextRange.Font.Size = Selection.Font.Size

s1.TextFrame.TextRange.Font.Name = Selection.Font.Name

s1.Line.ForeColor.TintAndShade = 1

s1.TextFrame.MarginBottom = 0

s1.TextFrame.MarginTop = 0

s1.ZOrder (msoSendBehindText)

s1.TextFrame.TextRange.Text = leftWord startNumber + i - 1 rightWord

ActiveDocument.PrintOut 打印前先在word内进行打印设置,如打印机,页数等

s1.Delete 打印后删除文本

Next i

End Sub

3/9

打开需要打印的文件；

4/9

按alt+f11呼出vba编辑界面；

5/9

粘贴代码；

6/9

返回word文档设置打印参数；

7/9

光标停留在文档内需要打印序列号的位置；

8/9

进入vba编辑窗口，按小箭头运行；

9/9

可以修改的参数已经注释。