一个WORD文档中，文本框自动编号问题

sunya_0529

原帖由 weiguoyin868 于 2009-6-24 20:19 发表
这两天，经过研究分析，WORD文档中，文本框自动编号已经初步解决。我使用录制宏的方法，把基本的对象结构理解清楚了。WORD文档中每一个文本框就是一个Document.Shapes对象，该对象有名称，也有编号，名称每个都不同， ...

处理类似问题，偶还是喜欢用VBA，花点时间与代码并调试，接下来的所有事就交给电脑了。

结合楼主的例子，写了两个过程，第一个是负责把文档里所有的编号按顺序重写的，填入起始序号后会自动更新所有文本框。

第二个就是批量打印的，可以指定如“1-800”这样的范围，按下确定后就由打印机负责下面的工作了。（友情提醒：测试时把默认打印机设置成虚拟的，以便看效果，要不然浪费很多张纸我可负不了这个责任

1. 
   
2. Option Explicit
   
3. 
   
4. Sub 自动添加编号()
   
5. On Error GoTo 0
   
6. Application.ScreenUpdating = False
   
7. Dim shpTemp As Shape, intStart%
   
8. intStart = Val(InputBox("请输入编号的起始数，默认为“1”：", "输入数值", 1))
   
9. For Each shpTemp In ThisDocument.Shapes
   
10. shpTemp.TextFrame.TextRange.Paragraphs(3).Range = "有效期至2009年5月31日  编号：" & Format(intStart, "000")
    
11. intStart = intStart + 1
    
12. Next
    
13. Application.ScreenUpdating = True
    
14. End Sub
    
15. 
    
16. Sub 批量打印餐券()
    
17. On Error GoTo 0
    
18. Application.ScreenUpdating = False
    
19. Dim shpTemp As Shape, i%, j%, k%, arrNum
    
20. arrNum = Split(InputBox("请输入编号的范围，如“1-125”：", "输入数值", "-"), "-")
    
21. j = Val(arrNum(0))
    
22. k = Val(arrNum(1))
    
23. For i = j To k
    
24. If (i - j) Mod 8 = 0 Then
    
25.   For Each shpTemp In ThisDocument.Shapes
    
26.    shpTemp.TextFrame.TextRange.Paragraphs(3).Range = "有效期至2009年5月31日  编号：" & IIf(j > k, "", Format(j, "000"))
    
27.    j = j + 1
    
28.   Next
    
29.   ThisDocument.PrintOut
    
30. End If
    
31. Next
    
32. Application.ScreenUpdating = True
    
33. End Sub
    

复制代码

jujusky

高手啊，谢谢~~

紫珂

好厉害，这也能解决！！看来学好VBA，是相当相当的有用啊

yzcyzc1023

谢谢分享。

szqhb

原帖由 sunya_0529 于 2009-6-26 17:01 发表


处理类似问题，偶还是喜欢用VBA，花点时间与代码并调试，接下来的所有事就交给电脑了。

结合楼主的例子，写了两个过程，第一个是负责把文档里所有的编号按顺序重写的，填入起始序号后会自动更新所有文本框。
...

若要在普通的文件上递增添加编码，宏代码应该怎样修改？

gyxgyp

多谢以上各位，学习了，解决了问题

qsqs

好厉害，这也能解决！！看来学好VBA，是相当相当的有用啊