VBA编程一例:解决WORD文档无法显示链接的图像问题
来源:互联网 发布:linux ping 测试丢包 编辑:程序博客网 时间:2024/04/30 20:15
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编程界面,在左边工程树上选中我们的文档,右键插入一个用户窗体:
在窗体上放一个按钮:
然后双击它生成点击事件函数,并在事件中编写代码,遍历所有图片对象,判断并设置是否保存的属性:
Private Sub CommandButton1_Click()Dim c As IntegerDim shp As InlineShapeDim sp As Shapec = 0For i = 1 To ActiveDocument.InlineShapes.Count Set shp = ActiveDocument.InlineShapes.Item(i) If Not shp.LinkFormat Is Nothing Then If Not shp.LinkFormat.SavePictureWithDocument Then c = c + 1 shp.LinkFormat.SavePictureWithDocument = True End If End IfNext iFor i = 1 To ActiveDocument.Shapes.Count Set sp = ActiveDocument.Shapes.Item(i) If Not sp.LinkFormat Is Nothing Then If Not sp.LinkFormat.SavePictureWithDocument Then c = c + 1 sp.LinkFormat.SavePictureWithDocument = True End If End IfNext iMsgBox CStr(c) + "个图片已经修改为与文档一起保存"End Sub
需要注意的是,有些图片对象可能没有LinkFormat属性,因此代码中要有判断是否为空的语句。
接下来按F5运行,显示用户窗体:
点击按钮,运行结果如下图:
关闭用户窗口,这时所有图片已经会随WORD文档一起保存了。
最后还要清理一下,回到VBA编程界面,把插入的用户窗体删除,关闭VAB编程窗口,保存退出。这时把文档拷到其它机器上也能看到图片了。
补充说明一点,如果有很多个文档要执行相同的操作,可专门新建一个叫“链接图像处理.doc”的文档来保存用户窗体和代码,我们的代码中处理的是ActiveDocument,因此只要同时打开要处理的文件和这个“链接图像处理.doc”文档,就能编写一次处理所有文件了。
- VBA编程一例:解决WORD文档无法显示链接的图像问题
- VBA编程一例:解决WORD文档无法显示链接的图像问题
- word文档中图片不显示的问题以及解决
- 解决java中html转word文档,转成功后的word文档在断网情况下无法显示图片问题
- 解决Word 2007无法显示图片的问题
- 解决Word 2007无法显示图片的问题
- "word中无法注册这篇文档 不能创建其他文档到这篇文档的链接"的解决
- 解决图像CStatic无法显示的问题------Detach()
- 解决Ubuntu的PDF文档中文无法显示的问题
- 解决ExtJS API文档无法显示问题
- office2003无法打开word文档,一打开就显示错误的解决方法
- Jacob解决Word文档的读写问题
- word文件图标无法显示的问题
- 如何解决Word文档插图显示不清晰问题
- 如何解决eclipse中代码拷贝到word文档中高亮显示的问题
- 解决word中特殊符号无法使用不显示问题
- word锁定:解决Word文档由于文档保护而无法修改、查找、编辑的方法
- word文档里四级目录无法显示
- 资治通鉴,卷五十七,蔡邕议伐鲜卑
- 定义容器类的模板的头文件
- 菜谱-红烧鲫鱼
- 黑马程序员_学习笔记5多线程在的应用遇到的主要问题及解决方法。
- Hello_World
- VBA编程一例:解决WORD文档无法显示链接的图像问题
- linux下OpenGL开发:(一)Mesa的安装和问题解决
- 顺序栈的实现
- About bugs
- 让Dreamweaver支持jQuery自动提示代码功能
- 2.3.7 FAST_START_MTTR_TARGET
- 博客系统前台页面设计
- sqlserver2008 添加例子数据库 northwind pubs
- 基于JXL/POI excel单元格内容的判断(公式单元格)