图书室标签要打印，如何在word文档中文本框自动编号

chyxs168 · 发表于 2014-12-19 14:26

图书室标签要打印，上一行的A是表示书籍的类别，不需要变化，下一行的0001为书籍编号，书籍太多，如何在word文档中文本框自动编号再打印标签，谢谢各位大神，试了很多代码都不能解决啊，要详细的教程或编好的模板，跪谢。

标签打印.rar (11.3 KB, 下载次数: 193)

mjjsum · 发表于 2014-12-19 15:15

邮件合并，非常有效，你试一试

chyxs168 · 发表于 2014-12-19 15:31

试过，好像不行啊

chyxs168 · 发表于 2014-12-21 10:32

求答复啊！

sunya_0529 · 发表于 2014-12-21 13:38

chyxs168 发表于 2014-12-21 10:32
求答复啊！

写一段简单的代码搞定——
QQ截图20141221133102.png

Sub 标签自动编号()
Dim intNo, tbx As Shape
With ActiveDocument
intNo = InputBox("输入序号并按“确定”后，从输入的序号开始；" & vbCrLf & "点“取消”，则接着当前页的最后一个序号开始！", "温馨提示：", 1)
If Len(intNo) = 0 Then intNo = CInt(Right(.Shapes(.Shapes.Count).TextFrame.TextRange.Text, 4)) + 1
For Each tbx In .Shapes
tbx.TextFrame.TextRange.Text = "A" & vbCrLf & Format(intNo, "0000")
intNo = intNo + 1
Next
If MsgBox("需要打印本页吗？", vbYesNo, "温馨提示：") = vbYes Then .PrintOut
End With
End Sub

复制代码

chyxs168 · 发表于 2014-12-22 07:56

完美解决，谢谢大神指点。

Jordan小罗 · 发表于 2019-1-17 17:53

sunya_0529 发表于 2014-12-21 13:38
写一段简单的代码搞定——

您好，请教一下，我这个版本怎么批量编号呢？求助！

萤火虫-2015 · 发表于 2019-1-22 13:24

谢谢分享，好东西下载学习使用啦

		自动登录	找回密码
密码			免费注册

[求助] 图书室标签要打印，如何在word文档中文本框自动编号