Таблица VBA Excel с текстом и соответствием изображений в Word

Мне нужно скопировать таблицу Excel с текстом и соответствующими изображениями (источник изображения: из той же папки рабочей книги) в Word. В Excel у меня есть два соответствующих столбца с несколькими строками, которые предварительно фильтруются. Он содержит столбец с текстовой меткой и соответствующий текстовый столбец. Эта отфильтрованная таблица должна быть отформатирована в файл Word, который находится в той же папке. Но вместо вставки текстовой метки следует циклически перемещаться по папке с изображениями и размещать соответствующее изображение (только те, которые имеют то же имя, что и текстовая метка) рядом с соответствующим текстом, как текст или таблица. Смотрите это изображение для визуализации Excel Input to Word Output. В зависимости от фильтра Excel для таблицы текст и метки, т.е. Изображения, будут разными.

Код для вставки одного изображения прекрасно работает для меня

Sub InsertIMG()

   Dim objWord
   Dim objDoc
   Dim objSelection
   Dim objShapes
   Dim ws As Worksheet

   Set objWord = CreateObject("Word.Application")
   Set objDoc = objWord.Documents.Open("Word Doc Path")
   objWord.Visible = True
   Set objShapes = objDoc.InlineShapes
   objShapes.AddPicture ("Image Path")

End Sub

с https://excel-macro.tutorialhorizon.com/vba-excel-addinsert-a-imagepicture-in-word-document/

Код для текста, но не таблицы в закладке, также работает хорошо:

Sub test()

Dim objWord As Object
Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets(1)
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open "C:\test.docx" ' change as required
With objWord.ActiveDocument
    .Bookmarks("bookmark_1").Range.Text = ws.Range("A1").Value
End With
Set objWord = Nothing

End Sub

Вставить текст ячейки Excel в Word после закладки через VBA

Где я борюсь, это как объединить коды и цикл через строку метки и вставить таблицу с текстом и соответствующим изображением метки. Любая идея?

0
источник поделиться

Посмотрите другие вопросы по меткам или Задайте вопрос