[求助]word2000中如何插入固定目录图片（图片会更新）？

fishy

各位高手：

哪位知道在word2000中如何实现插入固定目录的图片（图片会更新，但文件名不变），当图片被覆盖后，word2000插入的图片就自己就自动变成覆盖后的图片文件了．

fishy

我是打印两张图片，但是每隔几天，图片就会自动更新一次，所以谁有办法，让我免去每次都得重新插入图片的麻烦．

hpw

我曾经碰到过这样的,不过已经忘记怎么处理了,印象中好像是将后来图片的名字改成一样然后覆盖就可以了,但我现在却怎么也试不出来.[em06]

一起期待....

fishy

我也试过了，改名字是行不通的．因为word在保存文件时就已经把图片也保存进去了，所以不和插入的图片再有关系．就是这原因，如果能让插入word当中的图片与外面的文件保存关联的话，那就可以了，不过这该怎么做呢？

请大家指教！！！

守柔

本来使用粘贴链接的形式,但对于图形,不起作用.

本来通过使用插入对象/图片的形式,如果能更新域的话,也可以,遗憾的是,也不行.

但是,可以使用VBA方便地完成.

比如,每次打开文档时,自动重新插入所需路径的图片,就OK了.(删除原图片)

具体楼主可上传一个代表性的附件上来,我给你作一下.也就几句代码吧.

fishy

ＴＯ守柔：

我以前也没怎么用ＶＢＡ，你可以能先按以下要求写几句代码出来吗？然后我根据我自己的要求更改就可以了．如：我建立了一个word文档，其中里面有插入了二个图形文件（暂定为：＂d:\我的文档＂目录下的a.tif和b.tif）．

然后，你实现一打开该文档就可以自动更新文档里的图形，当然在关闭文档后，我又重新覆盖原始的a.tif和b.tif文件．

守柔

我不太理解你最后一句话.

这个代码供参考:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-14 6:37:18 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Private Sub Document_Open() Dim ashape As Shape, PicName1 As String, PicName2 As String PicName1 = "C:\Documents and Settings\My Documents\My Pictures\样品.jpg" PicName2 = "C:\Documents and Settings\My Documents\My Pictures\样品.bmp" With ActiveDocument For Each ashape In .Shapes ashape.Delete '删除所有图片 Next Set ashape = .Shapes.AddPicture(Anchor:=Selection.Range, FileName:=PicName1) ashape.WrapFormat.AllowOverlap = False Set ashape = .Shapes.AddPicture(Anchor:=Selection.Range, FileName:=PicName2) ashape.WrapFormat.AllowOverlap = False End With End Sub '----------------------原理:每次打开时自动插入指定路径下的图片,按照楼主的意思,就是图片可能更改了,但文件名没有变化?

也可以试一下以下代码:

本示例为活动文档添加一幅图片，该图片链接到原始文件并与文档一起保存。

Sub NewPicture()

ActiveDocument.Shapes.AddPicture _

FileName:="C:\Program Files\Microsoft Office\" _

& "Office\Bitmaps\Styles\stone.bmp", _

LinkToFile:=True, SaveWithDocument:=True

End Sub

fishy

我的最后一句话意思就是：每次文件更新后，打开word文档后会自动更新！

守柔

请参：

请将此附件解压于同一文件夹中。

打开文件后，会出现插入指定（与活动文档同一目录下的1.bmp,2.bmp)两个图片,你再尝试着将1.bmp更改为其它的图片,但其文件名仍为1.bmp.

再打开此文档,OK??

39Km1anZ.zip (25.28 KB, 下载次数: 38)

2005-4-16 06:41 上传

点击文件名下载附件
[求助]word2000中如何插入固定目录图片（图片会更新）？

fishy

好的，我试试看。谢谢了！