前提：一份Word文档里面有100张图片，有大有小 ， 需要将100张图片更改为统一大?。矶扔敫叨染?厘米，同时环绕方式也需要改成四周型 。
默认Word图片的默认环绕方式为嵌入型，需要统一更改为四周型，然后才能批量更改大?。?而批量更改大小方式需要使用VBA代码 。
第一步：打开 Word 文档，并按下 AltF11 键（笔记本电脑按alt fn f11) ， 打开 Visual Basic for Applications (VBA) 编辑器 。在 VBA 编辑器中，选择 "插入" -> "模块"，创建一个新的模块,如下图所示输入对应的代码 。
第二步：在(VBA) 编辑器输入对应的过程代码：
【Word批量更改图片环绕方式与尺寸大小】VBA代码：
' 作用：循环遍历所有的环绕方式为嵌入型图片，将其更改为四周型
Sub ConvertInlineToSquareWrap()
Dim pic As InlineShape
' 循环遍历所有的嵌入型图片
For Each pic In ActiveDocument.InlineShapes
' 检查是否为图片类型
If pic.Type = wdInlineShapePicture Then
' 设置为四周型
pic.Select
Selection.ShapeRange.WrapFormat.Type = wdWrapSquare
End If
Next pic
End Sub
VBA代码：
' 作用：更改图片大?。ǘ曰啡品绞轿闹苄突蛏舷滦推鹱饔茫?如果是嵌入型不起作用）