rc精密空调:怎样一次选中word文档里的所有图片并调整其大小？

利用word中的宏可以解决这个问题。

打开VB编辑器，将这个过程分为两个宏来处理：
1.将所有inlineshapes转变为shapes类型；
for each ishapes in selection.inlineshapes
ishapes.converttoinlineshape
next ishapes

2.将所有转化的shapes类型放大一定倍数然后还原为inlineshapes类型：
selection.shaperange.shapewidth 3,false
selection.shaperange.shapeheight 3,false
for each n in selection.shaperanges
n.converttoinlineshape
next n

上式中的两个三代表将长和宽分别扩大三倍。其他的性质可以自己探索~~最后选中图形执行宏就行了！

其实你误解了网友寒浪的意思，他说的意思是在按住shift不松，用鼠标将你文档页面中的所有图片点一遍，使它们全部被选中，这时就可以同时调整所有图片的大小了。
你可能还会说，那些图片一次只能选中一个，选第二个时前一个又脱离了被选中状态。这也有解决的办法：你先将某个图片选中，将其的“环绕方式”从“嵌入型”（注意：此时的“尺寸控点”为八个实心的小方块）改为“穿越型”（“尺寸控点”变为空心的小方块），将所有的图片全部改为“穿越型”后，就能在按住shift键的同时将文档中的所有图片选中，再在“设置图片格式”中一次性改变它们的大小了。
可要注意是否“锁定纵横比”哟！
祝你成功。

按住shift不松，用鼠标将你文档页面中的所有图片点一遍，使它们全部被选中，点击右键可以对图片进行编辑

用这个宏吧，我也是找了好久好久，不是我写的，感谢那个原创者。如下：

Sub 图片统一大小()
On Error Resume Next
Dim mywidth
Dim myheight
Application.ScreenUpdating = False '关闭屏幕更新
mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35
myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35
'------------------------------------------------------------------
'调整嵌入式图形
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
If mywidth = "0" Then
pic.Height = myheight
pic.ScaleWidth = pic.ScaleHeight
ElseIf myheight = "0" Then
pic.Width = mywidth
pic.ScaleHeight = pic.ScaleWidth
Else
pic.Width = mywidth
pic.Height = myheight
End If
Next
'调整浮动式图形
Dim tu As Shape
For Each tu In ActiveDocument.Shapes
If mywidth = "0" Then
tu.Height = myheight
ElseIf myheight = "0" Then
tu.Width = mywidth
Else
tu.LockAspectRatio = msoFalse
tu.Width = mywidth
tu.Height = myheight
End If
Next
Application.ScreenUpdating = True '恢复屏幕更新
End Sub

按SHIFT然后把需要调整的图片选中，在调就OK

赞成楼上的看法