批量修改Word 2010圖片寬度

1、打開宏

Word 2010宏：視圖-宏（或者直接按Alt+F8）

創建一個宏名，然後編輯

2、編輯宏

編輯如下代碼並保存

Sub ImageResizer() '設置圖片大小'

Dim n '圖片個數'
On Error Resume Next '忽略錯誤'
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片'
ActiveDocument.InlineShapes(n).Width = 300 '設置圖片寬度爲300px'
Next n

End Sub

3、運行宏

最後返回Word 2010，再次打開查看宏，選擇剛纔編輯好的宏，並單擊運行按鈕。