1、Word宏命令集1、Word宏實現刪除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、

2、Word中的圖片批量統一大小及同比例縮放有些時候，我們用Word來做一些圖文混排的文檔，需要正規的樣式，例如圖片大小一致。下面的方法就是告訴我們如何來實現很多的圖片統一大小，“插入”-“模塊”。代碼：Sub setpicsize() '設置圖片大小 Dim n '圖片個數 On Error Resume Next '忽略錯誤 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片 ActiveDocument.InlineShapes(n).Height = 400 '設置圖片高度

3、為 400px ActiveDocument.InlineShapes(n).Width = 300 '設置圖片寬度 300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片 ActiveDocument.Shapes(n).Height = 400 '設置圖片高度為 400px ActiveDocument.Shapes(n).Width = 300 '設置圖片寬度 300px Next n End Sub按比例縮放的方法：Sub setpicsize() '設置圖片大小 Dim

4、 n '圖片個數 On Error Resume Next '忽略錯誤 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片 ActiveDocument.InlineShapes(n).Height = 400 '設置圖片高度為 400px ActiveDocument.InlineShapes(n).Width = 300 '設置圖片寬度 300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片

5、 ActiveDocument.Shapes(n).Height = 400 '設置圖片高度為 400px ActiveDocument.Shapes(n).Width = 300 '設置圖片寬度 300px Next n End Sub3、Word中英文標點符號互換-VBA源碼實現打開“Visual Basic編輯器”或用快捷鍵Alt+F11，插入一個新的“模塊”。Sub ToggleInterpunction()'中英文標點互換 Dim ChineseInterpunction() As Variant, EnglishInterpunction() As Vari

6、ant Dim myArray1() As Variant, myArray2() As Variant, strFind As String, strRep As String Dim msgResult As VbMsgBoxResult, N As Byte '定義一個中文標點的數組對象 ChineseInterpunction = Array("、","。", "，", "；", "：", "？", "！", "", &

7、quot;", "", "（", "）", "", "") '定義一個英文標點的數組對象 EnglishInterpunction = Array(",",".", ",", "", ":", "?", "!", "", "-", "", "(", "

8、)", "<", ">") '提示用戶交互的MSGBOX對話框 msgResult = MsgBox("您想中英標點互換嗎?按Y將中文標點轉為英文標點,按N將英文標點轉為中文標點!", vbYesNoCancel) Select Case msgResult Case vbCancel Exit Sub '如果用戶選擇了取消按鈕,則退出程序運行 Case vbYes '如果用戶選擇了YES,則將中文標點轉換為英文標點 myArray1 = ChineseInterpunct

9、ion myArray2 = EnglishInterpunction strFind = "“(*)”" strRep = """1""" Case vbNo '如果用戶選擇了NO,則將英文標點轉換為中文標點 myArray1 = EnglishInterpunction myArray2 = ChineseInterpunction strFind = """(*)""" strRep = "“1”" End Select

10、Application.ScreenUpdating = False '關閉屏幕更新 For N = 0 To UBound(ChineseInterpunction) '從數組的下標到上標間作一個循環 With ActiveDocument.Content.Find .ClearFormatting '不限定查找格式 .MatchWildcards = False '不使用通配符 '查找相應的英文標點,替換為對應的中文標點 .Execute findtext:=myArray1(N), replacewith:=myArray2(N), Replace

11、:=wdReplaceAll End With Next With ActiveDocument.Content.Find .ClearFormatting '不限定查找格式 .MatchWildcards = True '使用通配符 .Execute findtext:=strFind, replacewith:=strRep, Replace:=wdReplaceAll End With Application.ScreenUpdating = True '恢復屏幕更新 End Sub4、實現本機Word打印密碼保護：Sub FilePrint() pass$ =

12、InputBox("請輸入打印密碼：") If pass$ = "abcd" Then Dialogs(wdDialogFilePrint).Show Else MsgBox ("密碼錯誤，請與管理人員聯系！") End If End Sub Sub FilePrintdefault() pass$ = InputBox("請輸入打印密碼：") If pass$ = "abcd" Then Dialogs(wdDialogFilePrint).Show Else MsgBox ("密碼

13、錯誤，請與管理人員聯系！") End If End Sub5、Word宏實現記錄本機打印歷史記錄Sub FilePrint() Dialogs(wdDialogFilePrint).Show DName = ActiveDocument.Path + "" + ActiveDocument.Name If ActiveDocument.Path = "" Then DName = "未保存文檔" Tim = Str(Date) + " 日 " + Str(Time) Open "c:print.

14、txt" For Append As #1 Print #1, "于 " + Tim+ " 打印 " + DName Close #1 End Sub6、在顯示屏上看到Word文檔的真實打印效果：套打單據表格及進行某些特殊的版式排版時，很希望屏幕上顯示的大小與打印結果完全相同，以便進行精確的套打操作。但能夠“所見即所得” 的Word顯示的結果與打印出來的結果雖然格式上能夠做到看到什么得到什么，但由于各人所用的顯示器的尺寸不同，而且相同尺寸的顯示器其可視面積也有所不 同，因此顯示與打印結果的大小比例很難做到完全一致。如果能夠給Word添加一個1:

15、1全真顯示的工具按鈕就好了!這樣即使我們不需要進行精確的套打，也 可以在文稿完成后按一下這個按鈕，看看最終輸出的字體大小設置得是否合適。實現這個目的只需三步：一、取得與真實打印完全一致的屏幕顯示比例由于各人使用的顯示器尺寸不同及畫幅調整的習慣不同，因此在此無法給出一個固定的數據。請先將顯示器的畫幅調整妥當，以能夠最大限度地顯示出完 整的全屏幕窗口為準。找一張A4紙，用尺子量下該紙的寬度，要求精確到毫米( 我測的是29.4*21.8)，因為標稱為某種開本的紙張，其實際大小并不一定與標稱值相同。然后，打開 Word新建一空白文檔，并設置為“頁面”視圖，將打印設置中的“紙型”設置為與準備的紙張相同的

16、紙型，如在此為A4，再將“紙型”選項卡中的紙張寬度設 置為與剛才量好的值完全一致，確定后返回編輯界面。   現在我們就以這張紙為依據，確定屏幕顯示比例。在工具欄的“顯示比例”輸入框中反復手工調整顯示比例的大小，注意系統本身只提供若干種固定的顯示比例，其實我們完全可以直接輸入任意一個整數，比如筆者的19英寸寬屏顯示器在設置為65后，屏幕上的頁面大小與真實紙張完全一致，這個“65”就是我們下一步需要的數據。 二、編寫一個宏命令1)請在Word的編輯界面按AltF8，打開“宏”對話框，在“宏名”編輯框中輸入“yitoyi”，然后單擊創建按鈕.   &

17、#160;2)打開Visual Basic編輯器，在代碼編輯窗口輸入下列代碼：Public Sub 全真1:1顯示( ) ActiveWindow.ActivePane.View Zoom.Percentage=65 End Sub注意：代碼中等于號后面的數字應靈活更改為與你的顯示器對應的真實比例數字。三、創建1:1全真顯示的工具欄按鈕按AltVTC，調出工具欄“自定義”對話框，選擇“命令/宏”，右邊的列表框中會顯示出所有已經存在的宏。找到剛才編輯的那個“yitoyi”的宏，將它拖入Word主界面的工具欄中的任意位置，這時工具欄中會出現一個與宏名對應的按鈕，請右擊新按鈕，在彈出的快捷菜單的“命名”編 輯框中更改按鈕名稱為“1:1”。按關閉按鈕退出設置。  7、Word宏實現快速打印當前頁一般來說，如果只想打印Word文檔中的當前頁面時，我們必須進入打印屬性設置窗口，然后將該窗口“頁面范圍”處的“當前頁”項目選中，再單擊一下“確 定”按鈕才可以。很顯然，如果每次打印當前頁面都按上面的方法來操作的話，不但麻煩不說，而且也不利于提高文檔打印效率。那我們有沒有辦法跳過打印屬性設 置窗口，來直接“命令”打印機去打印當前頁面呢？其實要做到這一點并不是一件十分困難的事情，我們完全可以借助Word應用程序的“錄制新宏”功能，來創 建一個可以直接讓打印機