怎么用VBA在WORD的直接使用邮件合并里的值

ttt105

我是小菜一名。想使用VBA在word里插入一些条型码

之前试过3 of9 barcode字体来插入，不过插入的条码扫码枪是无法读出来，所以想用调用在线生成的条码，

现在想用邮件合并的方式来调用EXCEL里的数据，生成条码后直接插入。
可是现在不会在VBA里配置邮件合并的相关参数，还请大神们指点
下面ABC的位置想插入一个"学籍号"邮箱合并数值，该如何写这个代码呢

尝试了以下几个都不行
ActiveDocument.MailMerge.DataSource("学籍号")
ActiveDocument.MailMerge.Fields("学籍号").Code

Sub 插入条型码()

    Selection.InlineShapes.AddPicture FileName:= _
        "http://barcode.cnaidc.com/html/cnaidc.php?filetype=PNG&dpi=72&scale=2&rotation=0&font_family=Arial.ttf&font_size=14&text=" & "ABC" & "&thickness=20&start=NULL&code=BCGcode128", LinkToFile:=False, SaveWithDocument:=True

End Sub

ttt105

这个是文档，还请大神出手相助

duquancai

ttt105 发表于 2016-12-7 14:43
这个是文档，还请大神出手相助

能做，但是有点复杂！

ttt105

今天找了点资料大概写了出来个小样，抛砖引玉，
还请各位大神会给优化优化

1. Sub 插入条型码()
   
2. Dim myMerge As MailMerge, myname As String
   
3. Application.ScreenUpdating = False
   
4. Set myMerge = ActiveDocument.MailMerge
   
5. With myMerge.DataSource
   
6.    If .Parent.State = wdMainAndDataSource Then
   
7.             .Parent.Destination = wdSendToNewDocument
   
8.             myname = .DataFields(2).Value
   
9.     Selection.InlineShapes.AddPicture FileName:= _
   
10.         "http://barcode.cnaidc.com/html/cnaidc.php?filetype=PNG&dpi=72&scale=2&rotation=0&font_family=Arial.ttf&font_size=14&text=" & myname & "&thickness=20&start=NULL&code=BCGcode128", LinkToFile:=False, SaveWithDocument:=True
    
11.      
    
12.      End If
    
13. End With
    
14. 
    
15. Application.ScreenUpdating = True
    
16. End Sub
    
17. 
    

复制代码