1、由於本方法用到了word2013，所以還在使用低版本wrod的朋友，可以網路搜尋下載新版的office2013，安裝後啟動Word2013。2、開啟word後，選擇“頁面佈局”選項卡，並單擊“頁邊距”按鈕。3、在彈出的快捷選單中選擇“自定義頁邊距”命令。4、接著會彈出“頁面設定”對話方塊，在“頁邊距”標籤中，我們要修改“左右邊距”，根據將要設定的圖片的寬度大小，計算出左右邊距大小。比如：我們要插入寬度為10釐米的圖片，那麼A4頁面的左右邊距就可以設為（21-10）/2，就是左右邊距各為5.5釐米。設定完後點擊“確定“。5、圖片按統一的寬度大小設定成功後，再修改文件的頁邊距，圖片的大小也不會再改變了。這時就可以輸入文字，繼續對文件進行編輯了。

宏可以批次完成一個word中所有圖片大小的修改

1、Alt F8調出宏編輯視窗

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。