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

weiguoyin868

我要编个用餐的证，格式是单位规定好的，每张餐证是文本框，不是表格，由于人员多，上千人，编号编排是个麻烦问题，每次是手工填写的，求帮助，要求自动填写？

[ 本帖最后由 weiguoyin868 于 2009-6-23 16:32 编辑 ]

dengjq2000

楼主真厉害，感觉你发表好几个话题都是与大家共享贴子！

你这求助的问题，如果在EXCEL表格里，实现起来到挺方便的

[ 本帖最后由 dengjq2000 于 2009-6-23 16:54 编辑 ]

weiguoyin868

工作需要，为了给自己工作轻松些，不喜欢干苦力啊，一直在研究学习，现在才发现，这里学习效果最好，最快。

jackeroo

建议用邮件合并。Word不是很熟悉，不知道域可不可以做到。

zgl520

建议做成EXCEL，这样编号就容易

weiguoyin868

这两天，经过研究分析，WORD文档中，文本框自动编号已经初步解决。我使用录制宏的方法，把基本的对象结构理解清楚了。WORD文档中每一个文本框就是一个Document.Shapes对象，该对象有名称，也有编号，名称每个都不同，但编号是按顺序的，其中语句格式Document.Shapes（1）.Select，就是选中第一个文本框了，语句格式Selection.MoveRight Unit:=wdCharacter, Count:=39，是确定了文本框第39个字符的位置（通过按光标键数出来的的），语句格式Selection.TypeText Text:=“数字”，在该位置就是写入的字符。将这三个语句联合使用，用个循环语句，就可以实现自动填写数。这样做要求要填写的位置必须是空字符。因此，现做个模版文件，使用时复制就可以用了。
代码如下：
Sub Aouthb()

  Dim I As Integer
  
  For I = 1 To 100
    ActiveDocument.Shapes(I).Select
    Selection.MoveRight Unit:=wdCharacter, Count:=39
    Selection.TypeText Text:=I
  
  Next I
  
End Sub
实例附后，注使用时要复制再用，否则，只能用一次。

[ 本帖最后由 weiguoyin868 于 2009-6-24 20:27 编辑 ]

jackeroo

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

又是VBA，呵呵。看来VBA无所不能。

xolf

可以合并文档
excel源设置流水号，可以合并域 域代码为  ｛MERGEFIELD "序号" \#"0000"｝
“上千人”使流水号保持4位码格式。

weiguoyin868

原帖由 xolf 于 2009-6-25 10:33 发表
可以合并文档
excel源设置流水号，可以合并域 域代码为  ｛MERGEFIELD "序号" \#"0000"｝
“上千人”使流水号保持4位码格式。

你说的不太明白，“合并文档”在word菜单里吗？我的实际应用大都在800人左右，能做个实例吗？我想这类问题不用编程最好。

[ 本帖最后由 weiguoyin868 于 2009-6-25 13:10 编辑 ]

xolf

哦！上面说就是邮件合并的合并文档