使用vba创建word文档label.list并填写

Question

我用我的Excel工作表使用vba宏。该宏创建一个新的Word文档，并使用邮件标签ID。 现在，我想用我的exel表中的一些数据填充标签。我尝试了一个数组。 我的想法如下所示： 1.创建Word对象 2.创建mailing.label 3.通过循环将我的excel vba数组加载到mailing.label

我用于创建文档的代码

Sub test()

Dim oDoc As Object
    On Error Resume Next
    Set appwd = GetObject(, "Word.Application")
    If Err Then
        Set appwd = CreateObject("Word.Application")
    End If
    On Error GoTo 0
    With appwd
        If .Documents.Count = 0 Then
            .Documents.Add
        End If
        Set oDoc = .MailingLabel.CreateNewDocumentByID(LabelID:="1359804674")
        .Visible = True
        .Activate
        'Do stuff with oDoc here
    End With

End Sub