如何在Word中按文件名称导入图片？

Wendy19860628 · 发表于 2022-4-12 13:54

如附件所示：我需要将300多个条码的图片依次导入WORD中，有没有什么快捷的方式？我原本是先在EXCEL中处理后，再粘贴到WORD中不是很理想，用了下邮件合并没成功，大家是否有好的方法，谢谢！

limonet · 发表于 2022-4-12 15:08

Sub charu()
With ActiveDocument.Tables(1)
For i = 2 To ActiveDocument.Tables(1).Rows.Count
      If Len(.Cell(i, 1).Range.Text) > 2 Then
         Selection.InlineShapes.AddPicture ThisDocument.Path & "\" & Left(.Cell(i, 1).Range.Text, InStr(.Cell(i, 1).Range.Text, "") - 2) & ".jpg", , , .Cell(i, 2).Range
      End If
Next i
End With
End Sub

Wendy19860628 · 发表于 2022-4-12 16:35

limonet 发表于 2022-4-12 15:08
Sub charu()
With ActiveDocument.Tables(1)
For i = 2 To ActiveDocument.Tables(1).Rows.Count ...

好的，谢谢，我试试

		自动登录	找回密码
密码			免费注册

[求助] 如何在Word中按文件名称导入图片？