1、圖片大小一致word2007 選定一張圖片后,然后點擊“格式相似的文本”,就可以把本文檔里的全部圖片選定,然后再在圖片工具欄里把長寬修改成相同的尺寸。2003等:一,在word中按alt+f11組合鍵,進入VBA模式二,在左邊的工程資源管理器中找到你的word文檔,在其上右鍵/添加/模塊三,把下面代碼復制,粘貼進去.四,更改數值, 改一下寬度和高度數值(10,點運行(類似播放按鈕.或f5,即可設置文檔中全部圖片Sub Macro(Mywidth=1010為圖片寬度(厘米Myheigth=1010為圖片高度(厘米For Each iShape In ActiveDocument.InlineSh

2、apesiShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub批量處理圖片大小2、宏名起好了,單擊“創建”進入Visual Basic 編輯器,輸入如下代碼并保存Sub setpicsize( 設置圖片大小Dim n 圖片個數On Error Resume Next 忽略錯誤ActiveDocument.InlineShapes(n.Width = 300 設置圖片寬度300pxNext nActiveDocument.Shapes(n.Height = 400 設置圖片高度為400p

3、xActiveDocument.Shapes(n.Width = 300 設置圖片寬度300pxNext nEnd Subword批量修改圖片大小按比例縮放篇這部分要說的是把word中的所有圖片按比例縮放!具體操作同上,只是代碼部分稍做修改,代碼如下:Sub setpicsize( 設置圖片大小Dim n 圖片個數Dim picwidthDim picheightOn Error Resume Next 忽略錯誤picheight = ActiveDocument.InlineShapes(n.Heightpicwidth = ActiveDocument.InlineShapes(n.Wid

4、thNext npicheight = ActiveDocument.Shapes(n.Heightpicwidth = ActiveDocument.Shapes(n.WidthNext nEnd SubSub setpicsize(設置圖片大小 宏在2008-3-31 由hero_thm 錄制Dim j 計數圖片個數ActiveDocument.InlineShapes(j.Width = 400 設置寬度End IfNext jEnd Subword如何一次性選中所有圖片并且編輯版式Q:圖文混排的長文檔,如何將所有圖片一次性設置為居中?A: Word文檔中插入一些圖片,如果一個一個手工設

5、置居中,效率實在太低,利用查找替換可以批量完成。第一步,打開“查找和替換”對話框,“查找內容”框中,輸入“g”,然后將光標定位到“替換為”文本框中,單擊“高級”按鈕,從格式的下拉菜單中選擇“圖文框”,打開“查找圖文框”對話框。第二步,在“查找圖文框”中按以下圖片所示的設置:第三步,設置完成,單擊“確定”關閉“查找圖文框”,返回“查找和替換”對話框,單擊“全部替換”。這樣就可以將Word中的圖片一次性批量設置為居中顯示。圖片居中Sub setpicsize(Dim j 計數圖片個數ActiveDocument.InlineShapes(j.Select 選中圖片With Selection.Pa

6、ragraphFormat 所選段落的格式.Alignment = wdAlignParagraphCenter 圖片居中.LeftIndent = 0 左縮進磅數.RightIndent = 0 右縮進磅數.FirstLineIndent = 0 首行縮進磅數.CharacterUnitLeftIndent = 0 左縮進字符數.CharacterUnitRightIndent = 0 右縮進字符數.CharacterUnitFirstLineIndent = 0 首行縮進字符數End WithNext jEnd Sub批量修改表格格式Sub ChangeTable(With Selection表格外邊框.Borders.OutsideLineStyle = wdLineStyleSingle表格內邊框.Borders.InsideLineStyle = wdLineStyleSingle表格居中.Rows.Alignment = wdAlignRowCenter表格內容居中Next iEnd Sub常用的格式(1更改圖片大小Sub setpicsize( 設置圖片大小Dim n 圖片個數On Error Resume Next 忽略錯誤Next nActiveDocument.Shapes(n.Height =