怎样将word文档中的上百张图片调整为一样的大小

刚回答过一个不是你吧,一并粘过来吧.
word2007 选定一张图片后，然后点击“格式相似的文本”，就可以把本文档里的全部图片选定，，然后再在图片工具栏里把长宽修改成相同的尺寸。

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

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

End Sub

Sub ()
Dim myInlineShape As InlineShape
For Each myInlineShape In ActiveDocument.InlineShapes
With myInlineShape
.LockAspectRatio = msoFalse '不锁定纵横比
.Height = MillimetersToPoints(50) '设置高度为50mm
.Width = MillimetersToPoints(40) '设置高度为40mm
End With
Next
End Sub