VBA编程一例：解决WORD文档无法显示链接的图像问题

OFFICE的VBA编程功能其实是蛮强大的，而VB的语法简单，学起来也很容易上手，如果做过OLE编程的对OFFICE的对象结构有了解就更容易了。利用VBA我们可以做很多批量处理的事，昨天刚好用它解决了个问题，这里把过程记录下供参考，应该对VBA新手会有帮助，熟手就不用看了。

 

昨天遇到的情况是，用Office2007从本地打开带图片的html并另存为word doc文档时，WORD把图像保存为链接而且不保留快照，这样在其它机器上打开时就会看不到图片，只看到一个“无法显示链接的图像，该文件可能已被移动、重命令或删除”的提示：

在WORD中尝试了很多办法，另存为MHT、另存为HTML再复制粘贴回来、存为旧版DOC、另存为RTF，都不能把图片一起保存，也找不到相应的选项。在网上查找了半天，找不到好的解决办法。重新插入图片可以解决，但由于文档较多，每个文档的图片有好几十个，且分布在不同的目录下，一个个去修改会非常麻烦。

县城的办法找不着，接下来就只好从农村出发，自己动手解决了。首先，利用WORD的宏录制功能，搞清楚插入图像和链接图像的区别。我录制了一个宏，在录制过程中分别以插入、链接、插入并链接的方式插入三个不同图：

停止录制之后，编辑之，可看到以下脚本：

很显然，在插图片Selection.InlineShapes.AddPicture时，“SaveWithDocument:=False”这个参数是导致图片不保存的罪魁祸首。

再进一步查帮助，发现InlineShape和Shape都有一个LinkFormat对象，而LinkFormat对象中就有SavePictureWithDocument属性，因此我们我只要把文档中的图像遍历一下，把这个属性都设置掉就能解决问题了。原理很简单，接下来我们就来实现它。

打开要处理的DOC文件，按ALT+F11进入VBA编程界面，在左边工程树上选中我们的文档，右键插入一个用户窗体：

在窗体上放一个按钮：

然后双击它生成点击事件函数，并在事件中编写代码，遍历所有图片对象，判断并设置是否保存的属性：

 

[vb] view plain copy

1. Private Sub CommandButton1_Click()  
2. Dim c As Integer  
3. Dim shp As InlineShape  
4. Dim sp As Shape  
5.   
6. c = 0  
7. For i = 1 To ActiveDocument.InlineShapes.Count  
8.   Set shp = ActiveDocument.InlineShapes.Item(i)  
9.   If Not shp.LinkFormat Is Nothing Then  
10.     If Not shp.LinkFormat.SavePictureWithDocument Then  
11.       c = c + 1  
12.       shp.LinkFormat.SavePictureWithDocument = True  
13.     End If  
14.   End If  
15. Next i  
16.   
17. For i = 1 To ActiveDocument.Shapes.Count  
18.   Set sp = ActiveDocument.Shapes.Item(i)  
19.   If Not sp.LinkFormat Is Nothing Then  
20.     If Not sp.LinkFormat.SavePictureWithDocument Then  
21.       c = c + 1  
22.       sp.LinkFormat.SavePictureWithDocument = True  
23.     End If  
24.   End If  
25. Next i  
26.   
27. MsgBox CStr(c) + "个图片已经修改为与文档一起保存"  
28.   
29. End Sub  

 

需要注意的是，有些图片对象可能没有LinkFormat属性，因此代码中要有判断是否为空的语句。

接下来按F5运行，显示用户窗体：

点击按钮，运行结果如下图：

关闭用户窗口，这时所有图片已经会随WORD文档一起保存了。

最后还要清理一下，回到VBA编程界面，把插入的用户窗体删除，关闭VAB编程窗口，保存退出。这时把文档拷到其它机器上也能看到图片了。

补充说明一点，如果有很多个文档要执行相同的操作，可专门新建一个叫“链接图像处理.doc”的文档来保存用户窗体和代码，我们的代码中处理的是ActiveDocument，因此只要同时打开要处理的文件和这个“链接图像处理.doc”文档，就能编写一次处理所有文件了。

http://blog.csdn.net/huzgd/article/details/6963548 

顶

1