Question

我需要将包含文本和匹配图像（图像来源：来自同一工作簿文件夹）的Excel表复制到Word。在Excel中，我有两个相关的列，其中有多行已预先过滤。它包含一个文本标签列和一个匹配的文本列。此筛选后的表应以格式传递给同一文件夹中的Word文件。但是，与其粘贴文本标签，不如遍历图像文件夹，并将相应的图像（仅与文本标签名称相同的图像）放置在与文本或表格匹配的文本旁边。 See this image for Excel Input to Word Output visualization。根据表格的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

来自Insert Excel cell text in Word after bookmark via VBA

我所苦恼的是如何合并代码并循环通过标签行，并插入带有文本和匹配标签图像的表格。有想法吗？

带有文本并将图像与Word匹配的VBA Excel表

0 个答案: