一鍵將一篇文字中的所有彎角引號替換為直角引號

　　為了解釋「宏」的作用，我先舉一個簡單的例子。

　　【實例1】

　　把文中所有彎角引號替換為直角引號

　　我之前公司的劇本，和知乎的潮流一樣，是用直角引號的。但有的編劇同事，比如@殷鑒老師，慣用的輸入法沒法方便地打出直角引號來，所以，只好在每次寫完一集劇本后，「全部替換」一遍左引號，再「全部替換」一遍右引號。如果文中還有單引號，那就再分別「全部替換」左、右兩種單引號。

　　使用宏的話，這個問題可以「一鍵解決」。只要在「宏」選項上選擇「錄制宏」，然后按照往日的順序，操作那四次「全部替換」，然后在「宏」選項上選擇「停止錄制」，一個新的宏就誕生了。

　　如果開始錄制的時候選擇了「將宏指定到按鈕」，則根據你的設置，Word的面板上會有一個該宏的按鈕。

　　如果選擇的是「將宏指定到鍵盤」，則根據你的設置，該宏有一個特定的快捷鍵。

　　當你再想把一篇文字中的所有彎角引號替換為直角引號時，再也不需要進行那些繁瑣的操作了，只要按一下你給這個宏設定的快捷鍵，所有替換工作就會自動完成。

　　它的本質就是把你的操作記錄了下來，然后進行「重放」。

　　就像無色禪師送給郭襄的那對鐵羅漢——那算得上一個記錄了少林羅漢拳的「宏」。按一下快捷鍵，它們就把羅漢拳從頭到尾打一遍。

　　真是簡單得不能再簡單了。

　　當然，你也可以不指定快捷方式，而是通過「查看宏」到宏列表中選擇想要編輯或使用的宏。

　　在編輯界面中你會看到這個宏的代碼，大致就是這樣——

　　Sub 彎角引號替換為直角引號()

　　彎角引號替換為直角引號 宏

　　Selection.Find.ClearFormatting

　　Selection.Find.Replacement.ClearFormatting

　　With Selection.Find

　　.Text = ChrW(8220)

　　.Replacement.Text = "「"

　　.Forward = True

　　.Wrap = wdFindContinue

　　.Format = False

　　.MatchCase = False

　　.MatchWholeWord = False

　　.MatchByte = True

　　.MatchAllWordForms = False

　　.MatchSoundsLike = False

　　.MatchWildcards = False

　　.MatchFuzzy = False

　　End With

　　Selection.Find.ClearFormatting

　　Selection.Find.Replacement.ClearFormatting

　　With Selection.Find

　　.Text = ""

　　.Replacement.Text = "「"

　　.Forward = True

　　.Wrap = wdFindContinue

　　.Format = False

　　.MatchCase = False

　　.MatchWholeWord = False

　　.MatchByte = True

　　.MatchAllWordForms = False

　　.MatchSoundsLike = False

　　.MatchWildcards = False

　　.MatchFuzzy = False

　　End With

　　Selection.Find.Execute Replace:=wdReplaceAll

　　With Selection.Find

　　.Text = ""

　　.Replacement.Text = "」"

　　.Forward = True

　　.Wrap = wdFindContinue

　　.Format = False

　　.MatchCase = False

　　.MatchWholeWord = False

　　.MatchByte = True

　　.MatchAllWordForms = False

　　.MatchSoundsLike = False

　　.MatchWildcards = False

　　.MatchFuzzy = False

　　End With

　　Selection.Find.Execute Replace:=wdReplaceAll

　　With Selection.Find

　　.Text = "‘"

　　.Replacement.Text = "『"

　　.Forward = True

　　.Wrap = wdFindContinue

　　.Format = False

　　.MatchCase = False

　　.MatchWholeWord = False

　　.MatchByte = True

　　.MatchAllWordForms = False

　　.MatchSoundsLike = False

　　.MatchWildcards = False

　　.MatchFuzzy = False

　　End With

　　Selection.Find.Execute Replace:=wdReplaceAll

　　With Selection.Find

　　.Text = "’"

　　.Replacement.Text = "』"[!--empirenews.page--]

　　.Forward = True

　　.Wrap = wdFindContinue

　　.Format = False

　　.MatchCase = False

　　.MatchWholeWord = False

　　.MatchByte = True

　　.MatchAllWordForms = False

　　.MatchSoundsLike = False

　　.MatchWildcards = False

　　.MatchFuzzy = False

　　End With

　　Selection.Find.Execute Replace:=wdReplaceAll

　　End Sub

　　事實上，如果你懶得錄制宏，直接把這段代碼復制粘貼到宏的編輯器里都行。