excel - 使用 vba 创建 word-document label.list 并填充它

Question

我使用我的 excel 表来使用 vba 宏。该宏创建一个新的 word 文档并使用邮件标签 ID。现在我想用我的 exel 表中的一些数据填充标签。我用数组试过了。我的想法如下： 1. 创建 Word 对象 2. 创建 mailing.label 3. 通过循环将我的 excel vba-array 加载到 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

标签： excelvbams-word