邮件合并 后扫描单号打印相应

popicture

1，已经做好了邮件合并。
2，想有个方法，把邮件合并后的WORD 按需打印。也就是输入对应的单号，打印对应的标签。
3，不知该如何实现这操作。
4，不知有没有实现这操作的可行性。

因为多标签，如果全部打印出来后，再对应贴上，就很难找，也乱。
或者请求一下，看有没其他可行的思路，而不一定要用邮件合并

413191246se

* 楼主，如果会用宏，可以试试如下代码：（找到数字号码，打印当前页）

1. Sub PrintNumPage()
   
2. '??????????????/???????????/??????????/?????
   
3.     Dim i&, j$
   
4.     With Selection
   
5.         Do
   
6.             .HomeKey Unit:=wdStory
   
7.             j = InputBox("", "Please Input Number! ?????????", "")
   
8.             If j = "" Then Exit Sub
   
9.             With .Find
   
10.                 .ClearFormatting
    
11.                 .Text = j
    
12.                 .Replacement.Text = ""
    
13.                 .Forward = True
    
14.                 .MatchWildcards = True
    
15.                 Do While .Execute
    
16.                     i = 1
    
17.                     With .Parent
    
18. '                        .Font.Color = wdColorRed
    
19.                         .Start = .End
    
20.                     End With
    
21.                     Application.PrintOut FileName:="", Range:=wdPrintCurrentPage
    
22.                 Loop
    
23.             End With
    
24.             If i = 0 Then
    
25.                 If MsgBox("Not found! Continue? δ?????????????", vbYesNo + vbCritical) = vbNo Then End
    
26.             End If
    
27.         Loop
    
28.     End With
    
29. End Sub
    

复制代码

popicture

非常感谢413191246se  
好强大的功能，想不到能这样操作，大开眼界了，谢谢！
同时，更加强了我学习VBA 的积极性