Word中相片批处理.ppt

Word中相片批处理应用说明在我们处理这些照片之前我们首先确定我
们插入的表格是几列，如通常我们作业的
标准是三列（或四列），后面我会给大家
一个具体的参考数据。然后把需要处理的
图片都选择插入到Word中，如下图所示！接下来我们开始对插入的N张图片做批处理。
第一步宏的创建这段代码需要修改的仅仅是图片的高度后宽度的具体数值

Dimn'图片个数
OnErrorResumeNext'忽略错误
Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height=99'设置图片高度为99px
ActiveDocument.InlineShapes(n).Width=71'设置图片宽度71px
Nextn
Forn=1ToActiveDocument.Shapes.Count'Shapes类型图片
ActiveDocument.Shapes(n).Height=99'设置图片高度为99px
ActiveDocument.Shapes(n).Width=71'设置图片宽度71px
Nextn

这里还要特别指出的是因为我们先前插入的是三列N行的表格，根据我们的多次实验可把高度修改为114宽度为143。当然也可根据我们自身的情况以及版面的要求如四列N行等情况酌情修改。（注只需要代换下图箭头所指示的数值其他包括标点符号在内的字符都不要改动）
更改完毕后我们只需要最后一步就大功告成了.如图。以上为word中批处理图片的详细步骤，不尽之处还望各位同仁指正！希望这个小道道能给大家带来方便，让我们兔年工作更顺利，心情更轻松！财运更发达！家庭更和睦！陕南拓展组全体组员敬上！

谢谢！