如何批量修改word圖片大小

1、如何批量修改wd圖片大小這兩天在整文檔，提交過來的文檔里面有幾百張圖片，規(guī)格都不一樣，堆在文檔里面很難看。為美化文檔，我決定將圖片規(guī)范化，都設(shè)置成425x320像素大小。手工修改每張圖片很費(fèi)時(shí)間也費(fèi)鼠標(biāo)，借助wd的宏功能可以很好完成這一任務(wù)。打開wd，按下AltF8，出現(xiàn)宏界面，為新建的宏取名為AdjustPicWidthHeight點(diǎn)擊編輯按鈕，輸入下面紅色字體標(biāo)出的內(nèi)容SubAdjustPicWidthHeight()Adverti

2、sePublishAs宏將廣告發(fā)布導(dǎo)出為PDF和XPSSubsetpicsize()設(shè)置圖片大小Dimn圖片個(gè)數(shù)OnErrResumeNext忽略錯(cuò)誤Fn=1ToActiveDocument.InlineShapes.CountInlineShapes類型圖片2、宏名起好了，單擊“創(chuàng)建”進(jìn)入VisualBasic編輯器，輸入如下代碼并保存Subsetpicsize()設(shè)置圖片大小Dimn圖片個(gè)數(shù)OnErrResumeNext忽略錯(cuò)誤Fn

3、=1ToActiveDocument.InlineShapes.CountInlineShapes類型圖片ActiveDocument.InlineShapes(n).Height=400設(shè)置圖片高度為400pxActiveDocument.InlineShapes(n).Width=300設(shè)置圖片寬度300pxNextnFn=1ToActiveDocument.Shapes.CountShapes類型圖片ActiveDocument.

4、Shapes(n).Height=400設(shè)置圖片高度為400pxActiveDocument.Shapes(n).Width=300設(shè)置圖片寬度300pxNextnEndSub3、返回wd，工具－宏－宏（或者直接按AltF8），再次進(jìn)入宏的界面，選擇剛才編輯好的宏，并單擊“運(yùn)行”按鈕，就可以了?。▓D片多時(shí)，可能會(huì)花一些時(shí)間）wd批量修改圖片大小批量修改圖片大小——按比例縮放篇按比例縮放篇這部分要說的是把wd中的所有圖片按比例縮放！具體操

5、作同上，只是代碼部分稍做修改，代碼如下：Subsetpicsize()設(shè)置圖片大小Dimn圖片個(gè)數(shù)DimpicwidthDimpicheightOnErrResumeNext忽略錯(cuò)誤Fn=1ToActiveDocument.InlineShapes.CountInlineShapes類型圖片picheight=ActiveDocument.InlineShapes(n).Heightpicwidth=ActiveDocument.Inl

6、ineShapes(n).WidthActiveDocument.InlineShapes(n).Height=picheight0.8設(shè)置高度為1.1倍ActiveDocument.InlineShapes(n).Width=picwidth0.8設(shè)置寬度為1.1倍NextnFn=1ToActiveDocument.Shapes.CountShapes類型圖片picheight=ActiveDocument.Shapes(n).Hei