Я использую свой лист Excel, чтобы использовать макрос VBA. Макрос создает новый текстовый документ и использует идентификатор почтовой метки.
Теперь я хочу заполнить этикетку некоторыми данными из моего листа exel. Я попробовал это с массивом.
Моя идея выглядит так:
1. создать объект Word
2. создать mailing.label
3. Загрузите мой VBA-массив Excel в цикле в 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