Word宏命令集

1、.word宏命令集1、word宏實(shí)現(xiàn)刪除word文檔中的所有超鏈接，打開(kāi)word的菜單 工具-宏-visual basic 編輯器，或直接按快捷鍵 alt+f11，打開(kāi)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)一大小及同比例縮放有些時(shí)候，我們用word來(lái)做一些圖文混排的文檔，需要正規(guī)的樣式，例如圖片大小一致。下面的方法就是告訴我們?nèi)绾蝸?lái)實(shí)現(xiàn)很多的圖片統(tǒng)一大小，“插入”-“模塊”。代碼：sub setpicsize() 設(shè)置圖片大小 dim n 圖片個(gè)數(shù) on error resume next 忽略錯(cuò)誤 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 圖片個(gè)數(shù) on error resume next 忽略錯(cuò)誤 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)點(diǎn)符號(hào)互換-vba源碼實(shí)現(xiàn)打開(kāi)“visual basic編輯器”或用快捷鍵alt+f11，插入一個(gè)新的“模塊”。sub toggleinterpunction()中英文標(biāo)點(diǎn)互換 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 定義一個(gè)中文標(biāo)點(diǎn)的數(shù)組對(duì)象 chineseinterpunction = array(、,。, ，, ；, ：, ？, ！, , , , （, ）, , ) 定義一個(gè)英文標(biāo)點(diǎn)的數(shù)組對(duì)象 englishinterpunction = array(,., , ;, :, ?, !, , -, , (, ), <, >) 提示用戶交互的msgbox對(duì)話框 msgresult = msgbox(您想中英標(biāo)點(diǎn)互換嗎?按y將中文標(biāo)點(diǎn)轉(zhuǎn)為英文標(biāo)點(diǎn),按n將英文標(biāo)點(diǎn)轉(zhuǎn)為中文標(biāo)點(diǎn)!, vbyesnocancel) select cas

7、e msgresult case vbcancel exit sub 如果用戶選擇了取消按鈕,則退出程序運(yùn)行 case vbyes 如果用戶選擇了yes,則將中文標(biāo)點(diǎn)轉(zhuǎn)換為英文標(biāo)點(diǎn) myarray1 = chineseinterpunction myarray2 = englishinterpunction strfind = “(*)” strrep = 1 case vbno 如果用戶選擇了no,則將英文標(biāo)點(diǎn)轉(zhuǎn)換為中文標(biāo)點(diǎn) 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)間作一個(gè)循環(huán) with activedocument.content.find .clearformatting 不限定查找格式 .matchwildcards = false 不使用通配符 查找相應(yīng)的英文標(biāo)點(diǎn),替換為對(duì)應(yīng)的中文標(biāo)點(diǎn) .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、實(shí)現(xiàn)本機(jī)word打印密碼保護(hù)：sub fileprint() pass$ = inputbox(請(qǐng)輸入打印密碼：) i

10、f pass$ = abcd then dialogs(wddialogfileprint).show else msgbox (密碼錯(cuò)誤，請(qǐng)與管理人員聯(lián)系！) end if end sub sub fileprintdefault() pass$ = inputbox(請(qǐng)輸入打印密碼：) if pass$ = abcd then dialogs(wddialogfileprint).show else msgbox (密碼錯(cuò)誤，請(qǐng)與管理人員聯(lián)系！) end if end sub5、word宏實(shí)現(xiàn)記錄本機(jī)打印歷史記錄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文檔的真實(shí)打印效果：套打單據(jù)表格及進(jìn)行某些特殊的版式排版時(shí)，很希望屏幕上顯示的大小與打印結(jié)果完全相同，以便進(jìn)行精確的套打操作。但能夠“所見(jiàn)即

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

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

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

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