⑴ 如何批量修改word文檔中圖片的大小
一次性調節word所有圖片方法如下：
打開WORD，在」工具「菜單下，選擇」選項「命令，在」選項「窗口中，」編輯」選項卡下，將插入圖片的格式選擇為「四周型」。在「插入」菜單中選擇「圖片」/「來自文件」，在「插入圖片「對話框中選擇要插入的圖片。
然後在「繪圖」工具欄中的「添加或刪除按鈕」中選擇「選中多個對象」，使用「選中多個對象」，將所有插入的圖片全部選中。雙擊任意一圖片，在彈出的對余雹話框中，就可以統一批量設置了，完成。
在word中，默認插入的嵌入式圖片是不能批量統一設置，只有將默認修改為四周型後，才可以批差毀皮量修改圖片版式或大小。
用宏命令虛差最省心：
代碼1如下：
Sub setpicsize()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不鎖定縱橫比
iSha.Width = CentimetersToPoints(5) '寬5CM
iSha.Height = CentimetersToPoints(5) '高5CM
End If
Next
End Sub
代碼2如下：
Sub setpicsize()
Dim j '計數圖片個數
For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes
ActiveDocument.InlineShapes(j).Height = 300 '設置高度10.58cm
ActiveDocument.InlineShapes(j).Width = 510 '設置寬度17.99cm
Next j
End Sub