由于是批量的處理同樣的事情

由于是批量的處理同樣的事情，因此要用到宏。是這樣的如果你的圖片顯示的是嵌入式的也就是不能旋轉(zhuǎn)的那種格式鉆切換大小會很容易，方法要使用宏命令。宏主要用來處理有規(guī)律的重復(fù)的工作相當(dāng)于批處理想好了就能編輯出來工具→宏→錄制新宏→然后指定一個快捷鍵（如L，相當(dāng)于ctrlL捷鍵），然后指定、關(guān)閉。開始錄制宏。把你能夠重復(fù)的操作執(zhí)行一下，以計算機能識別的重復(fù)為準(zhǔn)。然后→工具→宏→止錄制。這樣宏就錄制出來了。你L執(zhí)行就行了。連續(xù)按，則連續(xù)執(zhí)行。如果不完全正確，還要修改或重新錄制宏。對你來說使用的循環(huán)是查找形→然后調(diào)整大小然后鼠標(biāo)移到圖形右側(cè)。然后再執(zhí)行循環(huán)。這個命令是：ctrlF，點開高級，查找里面，選擇特殊格式里面的“圖形”，單擊找下一個。關(guān)掉查找界面，回到輯界面。直接去單擊格式菜單里面的圖片設(shè)置大小為你認可的比例確定然后將光標(biāo)用鍵盤移出圖片（右移以下）。執(zhí)行宏即可。批量修圖片大小：我寫論文時經(jīng)常要把所有的圖調(diào)整成一樣大小用的都是以下的代碼供參考至于批量插入圖片等功能為論文時來用不上不知道應(yīng)該弄成什么樣子以法回答你。Sub一次性調(diào)整公式以外的圖片大小及格(功能：全文的圖片調(diào)整成同樣大小，公式除外功能：果圖片不是jpg格式的，統(tǒng)一調(diào)整成jpg格并居中，以減小文檔體積'========================Mywidth需的圖片寬度（厘米）=5需要的圖片高度（厘米）'========================DimmyPicAsInlineShapeForEachInActiveDocument.InlineShapesWithSelectwdInlineShapePicture*Myheigth*Mywidth=wdAlignParagraphCenter

Selection.PasteSpecialLink:=False,DataType:=15,DisplayAsIcon:=FalseEndEndWithNextEnd打開你的WORD文，按alt+F11鍵出現(xiàn)microsoftvisualbasic窗，在左邊“project下雙擊“microsoftword對象再擊下面“thisdocument然就可以在右邊出現(xiàn)的窗口中拷入上面的代碼，然后按F5鍵行這段代碼，稍等幾秒，等microsoftbasic口標(biāo)題欄的正在運”字樣消失后，關(guān)閉這microsoftvisualbasic”窗口看看你的WORD中的圖發(fā)生了什么變化？是不是已經(jīng)OK了批修圖大——定寬這部分要說的是把word中的所有圖片修改成固定的并且相同的長和寬！、打開word工具－宏－宏（或者直接按Alt+F8）進入宏的界面，如下面所示，輸入一個宏名，宏名自己起，能記住就行！、宏名起好了，單“建進入VisualBasic編輯器，輸入如代碼并保存Subsetpicsize()設(shè)置圖片大Dim'圖個數(shù)Resume忽略錯誤n=ToActiveDocument.InlineShapes.Count類型圖ActiveDocument.InlineShapes(n).Height='設(shè)圖片度為400px='設(shè)圖片寬Nextn=ToActiveDocument.Shapes.Count'Shapes類型圖=400設(shè)置圖片高為=300'設(shè)圖片寬NextSub、返回word，工具－宏－宏（或者直接按Alt+F8次入宏的界面，選擇剛才編輯好的宏，并單運行按鈕，就可以了片多時，可能花一些時間批量修改圖片大小—按比例縮放篇這部分要說的是把word中的所有圖片按比例縮放！具體操作同上，只是代碼部分稍做修改，代碼如下：Subsetpicsize()設(shè)置圖片大Dim'圖個數(shù)

DimpicwidthDimpicheightResume忽略錯誤n=ToActiveDocument.InlineShapes.Count類型圖picheight=ActiveDocument.InlineShapes(n).Height=ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height=picheight*設(shè)置度為1.1=*設(shè)置寬度為1.1倍NextTo類型片picheight===*1.1設(shè)置高度為倍=picwidth*設(shè)置寬度為1.1倍NextSub批量給圖片加邊框的方法DimiAsIntegerFori=1ToActiveDocument.InlineShapes.CountWithActiveDocument.InlineShapes(i)With.Borders(wdBorderLeft).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth100pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderRight).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth100pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderTop).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth100pt

.Color=wdColorAutomaticEndWithWith.Borders(wdBorderBottom).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth100pt.Color=wdColorAutomaticEndWith.Borders.Shadow=FalseEndWithWithOptions.DefaultBorderLineStyle=wdLineStyleSingle.DefaultBorderLineWidth=wdLineWidth100pt.DefaultBorderColor=wdColorAutomaticEndWithNexti我用的時候不缺代碼啊，這是我做資料用的：Subsetpicsize()''setpicsizeMacro'宏由游創(chuàng)建'Dimn圖片個數(shù)OnErrorNext忽略錯誤For=1'InlineShapes型圖片=設(shè)圖片高度為600pxActiveDocument.InlineShapes(n).Width=設(shè)置圖片寬度NextnFor=1ActiveDocument.Shapes.Count類圖片=設(shè)圖片高度為=400設(shè)置圖片寬度400pxNextnDimiFori=ToActiveDocument.InlineShapes.CountWithWith.Borders(wdBorderLeft)wdLineStyleSinglewdLineWidth100pt.Color=wdColorAutomatic

EndWithWith.Borders(wdBorderRight)wdLineStyleSinglewdLineWidth100pt.Color=wdColorAutomaticEndWithWithwdLineStyleSinglewdLineWidth100pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderBottom)wdLineStyleSinglewdLineWidth100pt.Color=wdColorAutomaticEndWith.Borders.Shadow=FalseEndWithWithOptions=wdLineStyleSinglewdLineWidth100pt.DefaultBorderColor=wdColorAutomaticEndWithNextiEnd批修中所圖大宏操宏可以批量完成一個word中有圖片大小的修改，在次與大家共享，也希望可以給大家參考。、Alt+F8調(diào)宏編輯窗口、點創(chuàng)建按鈕，創(chuàng)建新宏setpicsize,內(nèi)如下：Subsetpicsize()設(shè)置圖片大小'宏由hero_thm錄'Dimj計數(shù)圖片個數(shù)Forj=ToActiveDocument.InlineShapes.Count件圖片總個數(shù)，圖片類型為inlineshapesActiveDocument.InlineShapes(j).Height=362設(shè)高度ActiveDocument.InlineShapes(j).Width設(shè)寬度NextjEnd、保存退出，點運行宏word所有的圖片統(tǒng)一調(diào)整為寬17cm，高Subsetpicsize()

設(shè)置圖片大小'宏由hero_thm錄'Dimj計數(shù)圖片個數(shù)Forj=ToActiveDocument.InlineShapes.Count件圖片總個數(shù)，圖片類型為inlineshapesIfActiveDocument.InlineShapes(j).Width>ActiveDocument.InlineShapes(j).Width400設(shè)寬度EndIfNextjEnd在片批插分符①批量插入圖片。這個都會，不用詳細介紹了。②快速分頁，每張圖片一頁。用宏來處理。工具→宏錄制新鍵單選鍵盤這個按鈕請新快捷我定的是＋L直接用鍵盤上的組合鍵按下去即→單指定關(guān)閉→方向箭頭光移到第一張圖片的右側(cè)，按一下＋（這個組合鍵是插入分頁符后將光標(biāo)用方向箭頭移到第二張圖片的右側(cè)。單擊停止錄制。然后聯(lián)系按ctrlL即將無論多少張的圖片均單獨設(shè)置為一頁。我已經(jīng)嘗試了，很輕松的。

以下無正僅供個用學(xué)習(xí)、究不得用商業(yè)用。толькдлялюдей,которыеиспользуютсядляобучения,исследованийинедолжныиспользоваьсявкомерческихцелях.Forpersona