多图片的Word文档减肥.docVIP

多图片的Word文档减肥(特别适用于Visio图片)我在日常工作中，大部分的Word文档都会配有很多图片。包括例如Visio绘制的UML图，界面截图。图多了之后，Word文件会很大。以前，对这类Word文档减肥，我都是采用图片压缩： 选中文档中一幅图片 右键－设置图片格式－图片－压缩－选“文档中所有图片”－更改分辨率为“Web/屏幕”－下边全选中 点确定。 但是这种方法只对截图和粘贴进来的图片文件有效，对Visio这种ole对象无效。于是又发现了这种方法对Visio图减肥（Word2003可用，2000不可）： 选中一幅Visio插图 Ctrl+X 剪切 菜单－编辑－选择性粘贴(Edit - Paste special) 选“图片(PNG)”格式。 对每一幅Visio图片都如此操作，保存后，Word文档显著变小。PNG是一种无损压缩格式，适合于保存有大面积色块的图像，例如UML图和软件屏幕截图。这个性质类似于GIF，但是效果更好。而且根据我试验的结果，把Visio图形按上述办法转换为GIF效果很差，线条变得断断续续。而选用PNG效果不错，但是要注意先手动将Visio图调整到所需要的大小，转换为PNG后再改变大小的话效果也会变差。对于这种大量重复性的机械劳动，当然要让电脑自己来完成。只需用VBA，遍历文档中的Visio图形，剪切，选择性粘贴为PNG即可。通过查看Word的VBA Reference和调试，知道了Word文档中的Visio属于InlineShape而不是Shape，可以用ActiveDocument.InlineShapes得到所有InlineShape的集合。但是InlineShape有很多种，以他们的Type属性区分，包括： wdInlineShapeEmbeddedOLEObject wdInlineShapeHorizontalLine wdInlineShapeLinkedOLEObject wdInlineShapeLinkedPicture wdInlineShapeLinkedPictureHorizontalLine wdInlineShapeOLEControlObject wdInlineShapeOWSAnchor wdInlineShapePicture wdInlineShapePictureBullet wdInlineShapePictureHorizontalLine wdInlineShapeScriptAnchor 从名字来看，wdInlineShapeEmbeddedOLEObject 和wdInlineShapePicture 类型应该被转换，其它的似乎不宜转换为PNG。再找到PasteSpecial方法，它通过一个参数DataType来设定粘贴的类型 wdPasteBitmap wdPasteDeviceIndependentBitmap wdPasteEnhancedMetafile wdPasteHTML wdPasteHyperlink wdPasteMetafilePicture wdPasteOLEObject wdPasteRTF wdPasteShape wdPasteText 这里边竟没有PNG！……先蒙一个试试，在程序中写：??? Selection.PasteSpecial DataType:=wdPastePNG没有效果。嗯，我先手动做一遍，录一个宏，看看Word是怎么用VBA来完成的。结果发现，DataType被直接设成了14，没有使用常量。好，那我也这么写。这是最后的代码，存到了Normal.dot中：Sub ConvertAllVisioToPNG()??? For Each oneShape In ActiveDocument.InlineShapes??????? If oneShape.Type = wdInlineShapeEmbeddedOLEObject Or _??????? oneShape.Type = wdInlineShapePicture Then??????????? oneShape.Select??????????? Selection.Cut??????????? Selection.PasteSpecial DataType:=14??????? End If??? NextEnd Sub[添加方法]Word中Alt+F11打开VBA编辑器，左边选Normal - Microsoft Word对象 - 双击ThisDocument。右边粘贴入上边的代码。保存[使用方法]Word中Alt+F8打开“宏”对