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

xwdys

不好意思，没做程序健壮性处理，第一次使用时请在（卷号）：后加4个数字，如：(卷号):0000

star81

xwdys 发表于 2016-3-21 22:11
不好意思，没做程序健壮性处理，第一次使用时请在（卷号）：后加4个数字，如：(卷号):0000

哦，这样是可以打印了，能帮处理一下，可以不要每次都要改几位数的0，因为每款产品的序号编码的位数不同，如有的序号编码是两位数，有的长10位数的，谢谢您了

xwdys

star81 发表于 2016-3-21 23:23
哦，这样是可以打印了，能帮处理一下，可以不要每次都要改几位数的0，因为每款产品的序号编码的位数不同 ...

编号需要几位？少于4位时需要在编号前以0补足吗？

star81

xwdys 发表于 2016-3-22 07:48
编号需要几位？少于4位时需要在编号前以0补足吗？

您好，编号没有固定的，就是没有什么规律，有的产品编号只有2位数，有的前面有带0，有的没有，数字长短也不固定。不知道可以处理不

xwdys

1. Sub FilePrint()
   
2.     Dim i&, j&, lngStart&, lngCount&, lngDigit&, s$
   
3.     Dim txtBox1 As Object
   
4.    
   
5.     lngCount = Val(InputBox("打印份数=?", , 1))
   
6.     lngStart = Val(InputBox("起始卷号=?", , 1))
   
7.     lngDigit = Val(InputBox("卷号几位数=?", "提示：位数少于卷号长度则以实际位数计算", 2))
   
8.    
   
9.     Set txtBox1 = ActiveDocument.Shapes(1).TextFrame.TextRange
   
10.    
    
11.     s = Replace(Mid(txtBox1, InStr(1, txtBox1, "卷号):") + 4, 10), " ", "")
    
12.     If IsNumeric(s) = False Then
    
13.         txtBox1 = Replace(txtBox1, "卷号):", "卷号):0")
    
14.     End If
    
15.    
    
16.     For i = 0 To lngCount - 1
    
17.             j = Len(Str(lngStart + i)) - 1
    
18.             If j > lngDigit Then lngDigit = j
    
19.             s = Right("0000000000" & (lngStart + i), lngDigit)
    
20.             txtBox1.Find.Execute findtext:="(\(卷号\):)[ 0-9]{1,15}", replacewith:="\1" & s, MatchWildcards:=True
    
21.       
    
22.       '--------打印---------
    
23.       ActiveDocument.PrintPreview
    
24.       '    ActiveDocument.PrintOut
    
25.     Next
    
26. End Sub

复制代码

star81

xwdys 发表于 2016-3-22 15:20

这样是可以的，方便，但又出现1个问题，这样会把我排版的文字大小全都改变成统一的，这个我打印的就对不上标签的位置

xwdys

只在你这示例文档上做,不知道文档格式有哪些要求的?

star81

文档上要打的一些其它的数字或是字母的信息我有排好字号大小，还有字体，打印的时候要保留我文档上其它字体及字号大小不变

star81

xwdys 发表于 2016-3-22 17:40
只在你这示例文档上做,不知道文档格式有哪些要求的?

文档上要打的一些其它的数字或是字母的信息我有排好字号大小，还有字体，打印的时候要保留我文档上其它字体及字号大小不变

xwdys

建议编号放在一个独立的文本框内,这样不会影响其它格式