Word如何自动生成数字Word自动生成数字。

使用VBA，按Alt+F11打开它，插入一个新模块，并输入代码。我只能让数字在打印的时候累加，比如一开始打印数字0001，打印第二个的时候就变成0002，累加到9999。代码如下:

Sub？普通数字()

暗淡？我？作为？整数

暗淡？dy？作为？整数

开？错误？简历？然后

我？=?InputBox("请输入起始数字"，「起始号码」1)？-?1

dy？=?InputBox("请输入要打印的份数"，？“印刷份数”？1)

为了什么？dy？=?1?去哪？dy？一步？1

我？=?我？+?1

如果？我？& gt=?1000?然后

选择。键入退格

选择。键入文本？正文:=我

ActiveDocument打印输出

其他

如果？我？& gt=?100?然后

选择。键入退格

选择。键入文本？正文:="0 "？& amp？我

ActiveDocument打印输出

其他

如果？我？& gt=?10?然后

选择。键入退格

选择。键入文本？正文:="00 "？& amp？我

ActiveDocument打印输出

其他

选择。键入退格

选择。键入文本？正文:="000 "？& amp？我

ActiveDocument打印输出

结束？如果

下一个？镝

结束？潜水艇