关于word中的图片

各位好！我在word文档里插入了100多张图片，但都是21.93厘米*14.63厘米大小，我想把它们都变成A4页面大小（29.70*21.00），请问有没有什么快捷的方式呢？

一,在word中按alt+f11组合键,进入VBA模式
二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
三,把下面代码复制,粘贴进去.
四,更改数值, 改一下宽度和高度数值，点运行(类似播放按钮.)或f5,即可设置文档中全部图片

Sub Macro() Mywidth=21'数据为图片宽度（厘米） Myheigth=29.70'数据为图片高度（厘米） For Each iShape In ActiveDocument.InlineShapes iShape.Height = 28.345 * Myheigth iShape.Width = 28.345 * Mywidth Next iShape End Sub

2# aidey
非常感谢你！！！
我把下面那行代码复制进去后（要删掉中文吧），按F5，出现了一个宏对话框，其中有两个栏目，上面一个是宏名称……这个怎么填写呢

谢谢！！！

有问题找百度嘛，呵呵

呵呵 楼主很专业  二楼回复的人更专业啊！！！