批量處理word文檔圖片大小.doc

聲明：我下面要說的“批量修改word里的圖片大小”的方法需要使用到宏，所以最好對VB有所了解！當(dāng)然這不是必需的，只要跟著我的圖文教程走，不知道什么是宏，不知道什么是VB也可以！word批量修改圖片大小固定長寬篇這部分要說的是把word中的所有圖片修改成固定的并且相同的長和寬！1、打開word，工具宏宏（或者直接按Alt+F8）進(jìn)入宏的界面，如下面所示，輸入一個(gè)宏名，宏名自己起，能記住就行！2、宏名起好了，單擊“創(chuàng)建”進(jìn)入Visual Basic 編輯器，輸入如下代碼并保存Sub setpicsize() 設(shè)置圖片大小 Dim n 圖片個(gè)數(shù) On Error Resume Next 忽略錯誤 For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes類型圖片 ActiveDocument.InlineShapes(n).Height = 105 設(shè)置圖片高度為105px ActiveDocument.InlineShapes(n).Width = 105 設(shè)置圖片寬度105px Next n For n = 1 To ActiveDocument.Shapes.Count Shapes類型圖片 ActiveDocument.Shapes(n).Height = 105 設(shè)置圖片高度為105px ActiveDocument.Shapes(n).Width = 105 設(shè)置圖片寬度105px Next n End Sub 3、返回word，工具宏宏（或者直接按Alt+F8），再次進(jìn)入宏的界面，選擇剛才編輯好的宏，并單擊“運(yùn)行”按鈕，就可以了！（圖片多時(shí)，可能會花一些時(shí)間）word批量修改圖片大小按比例縮放篇這部分要說的是把word中的所有圖片按比例縮放！具體操作同上，只是代碼部分稍做修改，代碼如下：Sub setpicsize() 設(shè)置圖片大小 Dim n 圖片個(gè)數(shù) Dim picwidth Dim picheight On Error Resume Next 忽略錯誤 For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes類型圖片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 設(shè)置高度為1.1倍 ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 設(shè)置寬度為1.1倍 Next n For n = 1 To ActiveDocument.Shapes.Count Shapes類型圖片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1 設(shè)置高度為1.1倍 ActiveDocument.Shapes(n).Width = picwidth * 1.1 設(shè)置寬度為1.1倍 Next n End Sub