Word宏命令集

1、.word宏命令集1、word宏實現(xiàn)刪除word文檔中的所有超鏈接，打開word的菜單 工具-宏-visual basic 編輯器，或直接按快捷鍵 alt+f11，打開visual basic 編輯器，“插入”-“模塊”。代碼：sub removehyperlinks() dim ofield as field for each ofield in activedocument.fields if ofield.type = wdfieldhyperlink then ofield.unlink end if next set ofield = nothing end sub2、word中的圖

2、片批量統(tǒng)一大小及同比例縮放有些時候，我們用word來做一些圖文混排的文檔，需要正規(guī)的樣式，例如圖片大小一致。下面的方法就是告訴我們?nèi)绾蝸韺崿F(xiàn)很多的圖片統(tǒng)一大小，“插入”-“模塊”。代碼：sub setpicsize() 設(shè)置圖片大小 dim n 圖片個數(shù) on error resume next 忽略錯誤 for n = 1 to activedocument.inlineshapes.count inlineshapes類型圖片 activedocument.inlineshapes(n).height = 400 設(shè)置圖片高度為 400px activedocument.inlinesha

3、pes(n).width = 300 設(shè)置圖片寬度 300px next n for n = 1 to activedocument.shapes.count shapes類型圖片 activedocument.shapes(n).height = 400 設(shè)置圖片高度為 400px activedocument.shapes(n).width = 300 設(shè)置圖片寬度 300px next n end sub按比例縮放的方法：sub setpicsize() 設(shè)置圖片大小 dim n 圖片個數(shù) on error resume next 忽略錯誤 for n = 1 to activedocu

4、ment.inlineshapes.count inlineshapes類型圖片 activedocument.inlineshapes(n).height = 400 設(shè)置圖片高度為 400px activedocument.inlineshapes(n).width = 300 設(shè)置圖片寬度 300px next n for n = 1 to activedocument.shapes.count shapes類型圖片 精品.activedocument.shapes(n).height = 400 設(shè)置圖片高度為 400px activedocument.shapes(n).width

5、= 300 設(shè)置圖片寬度 300px next n end sub3、word中英文標(biāo)點符號互換-vba源碼實現(xiàn)打開“visual basic編輯器”或用快捷鍵alt+f11，插入一個新的“模塊”。sub toggleinterpunction()中英文標(biāo)點互換 dim chineseinterpunction() as variant, englishinterpunction() as variant dim myarray1() as variant, myarray2() as variant, strfind as string, strrep as string dim msgre

6、sult as vbmsgboxresult, n as byte 定義一個中文標(biāo)點的數(shù)組對象 chineseinterpunction = array(、,。, ，, ；, ：, ？, ！, , , , （, ）, , ) 定義一個英文標(biāo)點的數(shù)組對象 englishinterpunction = array(,., , ;, :, ?, !, , -, , (, ), <, >) 提示用戶交互的msgbox對話框 msgresult = msgbox(您想中英標(biāo)點互換嗎?按y將中文標(biāo)點轉(zhuǎn)為英文標(biāo)點,按n將英文標(biāo)點轉(zhuǎn)為中文標(biāo)點!, vbyesnocancel) select cas

7、e msgresult case vbcancel exit sub 如果用戶選擇了取消按鈕,則退出程序運行 case vbyes 如果用戶選擇了yes,則將中文標(biāo)點轉(zhuǎn)換為英文標(biāo)點 myarray1 = chineseinterpunction myarray2 = englishinterpunction strfind = “(*)” strrep = 1 case vbno 如果用戶選擇了no,則將英文標(biāo)點轉(zhuǎn)換為中文標(biāo)點 myarray1 = englishinterpunction myarray2 = chineseinterpunction strfind = (*) strrep

8、 = “1” end select application.screenupdating = false 關(guān)閉屏幕更新 for n = 0 to ubound(chineseinterpunction) 從數(shù)組的下標(biāo)到上標(biāo)間作一個循環(huán) with activedocument.content.find .clearformatting 不限定查找格式 .matchwildcards = false 不使用通配符 查找相應(yīng)的英文標(biāo)點,替換為對應(yīng)的中文標(biāo)點 .execute findtext:=myarray1(n), replacewith:=myarray2(n), replace:=wdrep

9、laceall end with next with activedocument.content.find .clearformatting 不限定查找格式 精品.matchwildcards = true 使用通配符 .execute findtext:=strfind, replacewith:=strrep, replace:=wdreplaceall end with application.screenupdating = true 恢復(fù)屏幕更新 end sub4、實現(xiàn)本機word打印密碼保護：sub fileprint() pass$ = inputbox(請輸入打印密碼：) i

10、f pass$ = abcd then dialogs(wddialogfileprint).show else msgbox (密碼錯誤，請與管理人員聯(lián)系！) end if end sub sub fileprintdefault() pass$ = inputbox(請輸入打印密碼：) if pass$ = abcd then dialogs(wddialogfileprint).show else msgbox (密碼錯誤，請與管理人員聯(lián)系！) end if end sub5、word宏實現(xiàn)記錄本機打印歷史記錄sub fileprint() dialogs(wddialogfilepri

11、nt).show dname = activedocument.path + + activedocument.name if activedocument.path = then dname = 未保存文檔 tim = str(date) + 日 + str(time) open c:print.txt for append as #1 print #1, 于 + tim+ 打印 + dname close #1 end sub6、在顯示屏上看到word文檔的真實打印效果：套打單據(jù)表格及進(jìn)行某些特殊的版式排版時，很希望屏幕上顯示的大小與打印結(jié)果完全相同，以便進(jìn)行精確的套打操作。但能夠“所見即

12、所得” 的word顯示的結(jié)果與打印出來的結(jié)果雖然格式上能夠做到看到什么得到什么，但由于各人所用的顯示器的尺寸不同，而且相同尺寸的顯示器其可視面積也有所不 同，因此顯示與打印結(jié)果的大小比例很難做到完全一致。如果能夠給word添加一個1:1全真顯示的工具按鈕就好了!這樣即使我們不需要進(jìn)行精確的套打，也 可以在文稿完成后按一下這個按鈕，看看最終輸出的字體大小設(shè)置得是否合適。實現(xiàn)這個目的只需三步：精品.一、取得與真實打印完全一致的屏幕顯示比例由于各人使用的顯示器尺寸不同及畫幅調(diào)整的習(xí)慣不同，因此在此無法給出一個固定的數(shù)據(jù)。請先將顯示器的畫幅調(diào)整妥當(dāng)，以能夠最大限度地顯示出完 整的全屏幕窗口為準(zhǔn)。找一張

13、a4紙，用尺子量下該紙的寬度，要求精確到毫米( 我測的是29.4*21.8)，因為標(biāo)稱為某種開本的紙張，其實際大小并不一定與標(biāo)稱值相同。然后，打開 word新建一空白文檔，并設(shè)置為“頁面”視圖，將打印設(shè)置中的“紙型”設(shè)置為與準(zhǔn)備的紙張相同的紙型，如在此為a4，再將“紙型”選項卡中的紙張寬度設(shè) 置為與剛才量好的值完全一致，確定后返回編輯界面。 現(xiàn)在我們就以這張紙為依據(jù)，確定屏幕顯示比例。在工具欄的“顯示比例”輸入框中反復(fù)手工調(diào)整顯示比例的大小，注意系統(tǒng)本身只提供若干種固定的顯示比例，其實我們完全可以直接輸入任意一個整數(shù)，比如筆者的19英寸寬屏顯示器在設(shè)置為65后，屏幕上的頁面大小與真實紙張完全一

14、致，這個“65”就是我們下一步需要的數(shù)據(jù)。 二、編寫一個宏命令1)請在word的編輯界面按altf8，打開“宏”對話框，在“宏名”編輯框中輸入“yitoyi”，然后單擊創(chuàng)建按鈕.精品.2)打開visual basic編輯器，在代碼編輯窗口輸入下列代碼：public sub 全真1:1顯示( ) activewindow.activepane.view zoom.percentage=65 end sub注意：代碼中等于號后面的數(shù)字應(yīng)靈活更改為與你的顯示器對應(yīng)的真實比例數(shù)字。三、創(chuàng)建1:1全真顯示的工具欄按鈕按altvtc，調(diào)出工具欄“自定義”對話框，選擇“命令/宏”，右邊的列表框中會顯示出所有

15、已經(jīng)存在的宏。找到剛才編輯的那個“yitoyi”的宏，將它拖入word主界面的工具欄中的任意位置，這時工具欄中會出現(xiàn)一個與宏名對應(yīng)的按鈕，請右擊新按鈕，在彈出的快捷菜單的“命名”編 輯框中更改按鈕名稱為“1:1”。按關(guān)閉按鈕退出設(shè)置。精品.精品.7、word宏實現(xiàn)快速打印當(dāng)前頁一般來說，如果只想打印word文檔中的當(dāng)前頁面時，我們必須進(jìn)入打印屬性設(shè)置窗口，然后將該窗口“頁面范圍”處的“當(dāng)前頁”項目選中，再單擊一下“確 定”按鈕才可以。精品.很顯然，如果每次打印當(dāng)前頁面都按上面的方法來操作的話，不但麻煩不說，而且也不利于提高文檔打印效率。那我們有沒有辦法跳過打印屬性設(shè) 置窗口，來直接“命令”打印機去打印當(dāng)前頁面呢？其實要做到這一點并不是一件十分困難的事情，我們完全可以借助word應(yīng)用程序的“錄制新宏”功能，來創(chuàng) 建一個可以直接