如何通過“宏”批量完成word中所有圖片大小的修改？并且讓圖片安排原來順序排列？

導讀1、Alt+F8調出宏編輯窗口2、點創建按鈕，創建新宏，setpicsize,內容如下：Subsetpicsize()'設置圖片大小'宏在2008-3-31由hero_thm錄制'Dimj'計數圖片個數Forj=1ToActiveDocument.InlineShapes.Count'文件中圖片總個數，圖片類型為inlineshapesActiveDocument.InlineShapes(j).Height=362'設置高度ActiveDocument.InlineShapes(j).Width=481.87'設置寬度NextjEndSub3、保存退出，點運行setpicsize宏，word中所有的圖片統一調整為寬17cm，高12.77cmSubsetpicsize()'設置圖片大小'宏在

1、Alt+F8調出宏編輯窗口 2、點創建按鈕，創建新宏，setpicsize,內容如下： Sub setpicsize() '設置圖片大小 ' 宏在 2008-3-31 由 hero_thm 錄制 ' Dim j '計數圖片個數 For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes ActiveDocument.InlineShapes(j).Height = 362 '設置高度 ActiveDocument.InlineShapes(j).Width = 481.87 '設置寬度 Next j End Sub 3、保存退出，點運行setpicsize宏，word中所有的圖片統一調整為寬17cm，高12.77cm Sub setpicsize() '設置圖片大小 ' 宏在 2008-3-31 由 hero_thm 錄制 ' Dim j '計數圖片個數 For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes If ActiveDocument.InlineShapes(j).Width > 480 Then ActiveDocument.InlineShapes(j).Width = 400 '設置寬度 End If Next j End Sub