WORD 打印单页自动变序号问题

xwdys · 发表于 2016-3-22 17:49

本帖最后由 xwdys 于 2016-3-22 17:52 编辑

独*立?还是敏感词啊?靠!

star81 · 发表于 2016-3-22 18:04

xwdys 发表于 2016-3-22 17:45
建议编号放在一个独立的文本框内,这样不会影响其它格式

好的，谢谢您，帮我解决了一大问题。

star81 · 发表于 2016-3-22 19:52

本帖最后由 star81 于 2016-3-22 20:03 编辑

xwdys 发表于 2016-3-22 17:45
建议编号放在一个独立的文本框内,这样不会影响其它格式

对了，问一下，如果卷后打印数字在1－1000之间，前面不要加0，这样会简单好弄一些吗？这样好像用回之前的在卷号后加“0000”的方法更好打

xwdys · 发表于 2016-3-23 07:14

直接输入卷号长度为1,前面就没有0了

star81 · 发表于 2016-3-24 14:35

xwdys 发表于 2016-3-22 17:45
建议编号放在一个独立的文本框内,这样不会影响其它格式

我试了一下编号放在独立的一个文本框内，但打印的时候，每打一张就会弹出一个窗口显示内容就是序号，要点确认才能打印出来，这样打一百张要坐那儿等打一张点一次确认。

star81 · 发表于 2016-3-24 14:37

xwdys 发表于 2016-3-23 07:14
直接输入卷号长度为1,前面就没有0了

卷号放单独文本框里，我试了一下，每打印一张都会弹一个窗口，显示的是序号，要点确认才能打印

xwdys · 发表于 2016-3-25 19:10

sorry,我把测试用的Msgbox s也放进去了,上述代码已删除了该句

star81 · 发表于 2016-3-26 13:04

本帖最后由 star81 于 2016-3-26 13:07 编辑

xwdys 发表于 2016-3-25 19:10
sorry,我把测试用的Msgbox s也放进去了,上述代码已删除了该句

谢谢，非常感谢，这个宏已经可以用的，不过我想了解一下有没有能打印快些的方法呢，这个代码是打印一张会停一下，然后再打下一张，用邮件合并的方法是不会一张停一下。

xwdys · 发表于 2016-3-26 13:59

在For i=0 to IngCount -1 前添加一句试试，即：

Application.DisplayAlerts = wdAlertsNone
For i = 0 To lngCount - 1

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

[求助] WORD 打印单页自动变序号问题