word中常用操作

1、圖片大小一致word2007 選定一張圖片后,然后點擊“格式相似的文本”,就可以把本文檔里的全部圖片選定,然后再在圖片工具欄里把長寬修改成相同的尺寸。2003等:一,在word中按alt+f11組合鍵,進(jìn)入VBA模式二,在左邊的工程資源管理器中找到你的word文檔,在其上右鍵/添加/模塊三,把下面代碼復(fù)制,粘貼進(jìn)去.四,更改數(shù)值, 改一下寬度和高度數(shù)值(10,點運行(類似播放按鈕.或f5,即可設(shè)置文檔中全部圖片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、宏名起好了,單擊“創(chuàng)建”進(jìn)入Visual Basic 編輯器,輸入如下代碼并保存Sub setpicsize( 設(shè)置圖片大小Dim n 圖片個數(shù)On Error Resume Next 忽略錯誤ActiveDocument.InlineShapes(n.Width = 300 設(shè)置圖片寬度300pxNext nActiveDocument.Shapes(n.Height = 400 設(shè)置圖片高度為400p

3、xActiveDocument.Shapes(n.Width = 300 設(shè)置圖片寬度300pxNext nEnd Subword批量修改圖片大小按比例縮放篇這部分要說的是把word中的所有圖片按比例縮放!具體操作同上,只是代碼部分稍做修改,代碼如下:Sub setpicsize( 設(shè)置圖片大小Dim n 圖片個數(shù)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(設(shè)置圖片大小 宏在2008-3-31 由hero_thm 錄制Dim j 計數(shù)圖片個數(shù)ActiveDocument.InlineShapes(j.Width = 400 設(shè)置寬度End IfNext jEnd Subword如何一次性選中所有圖片并且編輯版式Q:圖文混排的長文檔,如何將所有圖片一次性設(shè)置為居中?A: Word文檔中插入一些圖片,如果一個一個手工設(shè)

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

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