word中根据路径自动插入图片

xyc0321 · 发表于 2014-8-13 10:22

本帖最后由 xyc0321 于 2014-8-13 11:39 编辑

word文档中有很多图片路径，用vba怎样自动根据路径名将相应的图片插入到文档中，并用该图片替换掉原先的路径文字，谢谢！
QQ截图20140813102229.jpg

————————》

插入图片.zip (187.05 KB, 下载次数: 323)

xyc0321 · 发表于 2014-8-13 11:34

自己先顶一下

闻启学 · 发表于 2014-8-13 13:49

我简单做了一下请测试

Sub aaa()
Dim mypic As String
For i = 1 To ActiveDocument.Paragraphs.Count
mypic = ActiveDocument.Paragraphs(i).Range.Text
If InStr(mypic, "") > 0 Then
mypic = ActiveDocument.Path & Left(mypic, Len(mypic) - 1)
ActiveDocument.Paragraphs(i).Range.Select
Selection.InlineShapes.AddPicture FileName:=mypic, LinkToFile:=False, SaveWithDocument:=True
Selection.InsertBefore (Chr(10))
End If
Next
End Sub

复制代码

ww0000 · 发表于 2014-8-13 16:40

闻启学发表于 2014-8-13 13:49
我简单做了一下请测试

厉害,请教一下,如何达到附件这样的效果?

复件 WORD插入图片.rar (394.86 KB, 下载次数: 369)

闻启学 · 发表于 2014-8-13 17:14

ww0000 发表于 2014-8-13 16:40
厉害,请教一下,如何达到附件这样的效果?

请测试

Sub tt()
Set myTable = ThisDocument.Tables(1)
'// Debug.Print myTable.Range.Cells.Count
For i = 2 To myTable.Range.Cells.Count Step 2
mypic = myTable.Range.Cells(i - 1).Range.Text
mypic = ActiveDocument.Path & Trim(Left(mypic, Len(mypic) - 2))
myTable.Range.Cells(i).Range.Select
Selection.InlineShapes.AddPicture FileName:=mypic, LinkToFile:=False, SaveWithDocument:=True
'// Debug.Print mypic
'//D:\TDDOWNLOAD\插入图片(1)\IMG
Next
End Sub

复制代码

ww0000 · 发表于 2014-8-13 17:24

闻启学发表于 2014-8-13 17:14
请测试

好像不行!另外,图片能否适应单元格大小?

闻启学 · 发表于 2014-8-13 18:07

ww0000 发表于 2014-8-13 17:24
好像不行!另外,图片能否适应单元格大小?

我测试通过的

xyc0321 · 发表于 2014-8-13 21:19

闻启学发表于 2014-8-13 18:07
我测试通过的

谢谢回复，你做的这个是显示在单元格里的，请看我帖子的图片，要用图片替换原来的文字

xyc0321 · 发表于 2014-8-13 21:21

闻启学发表于 2014-8-13 18:07
我测试通过的

谢谢回复，你做的这个是在单元格里的，我要求的是用图片替换掉原来文档里的图片途径文字，请看帖子里的两张对比图，能否帮助实现？

ww0000 · 发表于 2014-8-13 21:28

闻启学发表于 2014-8-13 18:07
我测试通过的

你是用我的附件测的？不会吧？

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

[求助] word中根据路径自动插入图片