厭倦了在Microsoft Word中執行重複的任務嗎？在程式中嵌入了一個強大的自動化工具，它可以讓你不必操心這些工作。我們說的是巨集，雖然這個功能依賴於微軟的visualbasicforapplicati***（VBA），但是即使編碼的思想給了你很大的便利，你也可以使用它。

只需單擊一個按鈕，Word就會記錄下您的操作，生成一個巨集，您可以隨時回放。如果你喜歡冒險，你可以很容易地修改巨集以獲得更高的自動化程度。

這裡我們將向您展示一個簡單但有用的示例：如何自動執行Word的查詢和替換函式。

錄製巨集

在這個例子中，你是古董牙科用具保護協會的尊敬的主席。你有幾十個關於歷史假牙之類的Word文件，都突出提到了社會的名字。突然，董事會投票決定將名稱改為牙科古董保護聯盟。現在你需要一個簡單的方法來更新文件。

您可以從新的空白文件開始，也可以開啟現有文件。如果您還沒有這樣做，就必須啟用“開發人員”選項卡。

轉到“檔案”&gt；“選項”&gt；“自定義功能區”。在右側的“主選項卡”下，選中“開發人員”選項。選擇OK並退出。

現在讓我們建立巨集。

1. 單擊“開發人員”&gt；“錄製巨集”。
2. 系統將提示您命名巨集。輸入“ChangeSocietyName”或任何其他適合您的名稱。命名巨集時，請避免使用空格、句點、感嘆號和特殊字元，否則會出現錯誤訊息。可以使用數字，但第一個字元必須是字母。
3. 可以將巨集指定給按鈕和/或鍵盤快捷鍵，但這不是必需的。如果您選擇按鈕，Word將允許您將其新增到快速訪問工具欄。還可以新增巨集的簡要說明。
4. 單擊OK，Word現在將記錄您的操作。按Ctrl+H以開啟“查詢和替換”對話方塊。
5. 在尋找中進入“牙科古董儲存協會”，在更換中進入“牙科古董儲存聯盟”。
6. 單擊全部替換以執行查詢和替換操作。這是你想錄制的唯一動作。巨集是否替換了任何文字並不重要。關鍵是要儲存它以供其他文件使用。
7. 這一點很重要：單擊“開發人員”&gt；“停止錄製”。否則，巨集將包含所有後續操作。

現在讓我們看看你的作品。開啟包含社團名稱的文件。單擊“開發人員”&gt；“巨集”。如果雙擊ChangeSocietyName，Word將自動執行查詢和替換操作。

提示：錄製巨集時，可能需要執行不希望錄製的操作。例如，您可能希望將文字複製並貼上到“查詢和替換”對話方塊中，而不是手動鍵入文字。沒問題：只需單擊“開發人員”&gt；“暫停錄製”，複製並貼上文字，然後單擊“開發人員”&gt；“繼續錄製”。然後，您可以完成上述巨集錄製。

雖然我們在這裡重點討論的是MicrosoftWord，但您也可以使用巨集來提高Excel中的工作效率。而且微軟OneNote有很多省時的巨集。

潛入密碼

現在我們將深入研究我們的新詞巨集。轉到“開發人員”&gt；“巨集”，但不要雙擊巨集，而是選擇它並單擊“編輯”。這將開啟visualbasic編輯器，這是一個用於構建VBA應用程式的自包含環境。

它可能看起來令人望而生畏，但您可以忽略選單和大多數面板。而應該關注包含程式碼的視窗。如您所見，Word剛剛編寫了一個巨集來執行查詢和替換。

Sub ChangeSocietyName()'' ChangeSocietyName Macro' Rename Society for the Preservation of Antique Dental Appliances' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "Society for the Preservation of Antique Dental Appliances" .Replacement.Text = "Dental Antiques Preservation League" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAllEnd Sub

讓我們解釋一下這裡發生了什麼。

第一行的“sub”是“subroutine”的縮寫，這是一個可以獨立執行或作為更大VBA應用程式一部分執行的小程式。帶單引號的行用於註釋。引號告訴VBA忽略這些行上的任何語句。

然後我們進入程式碼的核心：執行查詢和替換操作的程式碼。如您所見，它為“查詢和替換”對話方塊中的每個選項指定值，包括引號中的文字和替換文字。這個選擇.查詢.執行接近結尾的命令相當於單擊“全部替換”按鈕。

修改巨集

要使用巨集，您不必弄亂程式碼，甚至不必檢視它。但如果你願意深入研究，你可以從這個功能中得到更多。例如，假設您在錄製巨集時輸入了一個拼寫錯誤。您可以進入visualbasic並修復它，而不是重新錄製它。

您還可以調整巨集使其更有用，這就是我們在這裡要做的。當您手動或透過巨集執行Find and Replace時，Word會記住Find and Replace文字。下次開啟“查詢和替換”對話方塊時，它將如下所示。

最好清除這些值，這樣我們就可以得到一個乾淨的對話方塊。我們將使用第二個巨集來實現這一點，但這次，我們將直接在visualbasic中實現。

1. 在visualbasic編輯器中，選擇從第一行到結束子例程的整個子例程。按Ctrl+C將其複製。
2. 將游標放在endsub下面，按Ctrl+V。您剛剛複製了子例程。
3. 將名稱從ChangeSocietyName更改為ClearFindReplace（或任何其他適合您的名稱）。這一點很重要，因為如果您嘗試使用重複的名稱執行巨集，VBA將生成錯誤訊息。
4. 在.Text和替換。文字值，刪除文字，但保留引號。本質上，你告訴Word什麼都找不到，用什麼都沒有來代替它，但你也在清除那些值。

結果應該是這樣的：

Sub ClearFindReplace()'' ClearFindReplace Macro' Clear Text from Find and Replace dialog' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAllEnd Sub

現在我們回到ChangeSocietyName巨集。在Find和Replace程式碼下面，但在End Sub之前，輸入ClearFindReplace（末尾沒有括號）。

沒錯：您不必輸入剛剛建立的所有程式碼，只需輸入巨集的名稱。

Sub ChangeSocietyName()'' ChangeSocietyName Macro' Rename Society for the Preservation of Antique Dental Appliances' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "Society for the Preservation of Antique Dental Appliances" .Replacement.Text = "Dental Antiques Preservation League" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ClearFindReplace End Sub

當Word執行ChangeSocietyName時，首先它將執行原始的Find和Replace函式。然後它將ClearFindReplace解釋為執行第二個巨集的命令。

vba的進一步發展

正如你所看到的，Word的巨集錄製功能可以幫助你節省無數的時間。您可以建立巨集來自動化幾乎所有的操作，並且在visualbasic編輯器中，您可以調整巨集，將一個巨集嵌入另一個巨集中，或者建立一個子例程來逐個執行多個巨集。

因為VBA是一種成熟的程式語言，所以您可以將子程式合併到具有變數、迴圈、條件語句等的大型應用程式中。一旦你在Word中學習了VBA的基本知識，你就可以在microsoftexcel和Access中建立巨集了。

為了更進一步，您需要了解有關VBA約定和visualbasic編輯器的更多資訊，例如如何組織程式碼以及如何處理bug。但是，即使您想堅持使用這裡描述的簡單功能，您也可以在很大程度上提高工作效率。