如何在 Word 中將直引號自動轉換為彎引號？

通常，Microsoft Word 會在您輸入時自動將直引號轉換為彎引號（又稱智慧引號或排版引號）。但若此功能已關閉，文件中的單引號與雙引號可能會顯示為直引號。以下提供幾種實用技巧，助您在 Word 中輕鬆將直引號與彎引號互相轉換！

使用查找和替換將直引號改為彎引號

使用 VBA 將直引號改為彎引號

---

使用查找和替換將直引號改為彎引號

在套用查找和替換前，您應先前往自動更正選項，取消勾選「直式引號」取代為「智慧引號」複選框。

步驟 1. 按一下檔案 > 選項 > 校訂 > 自動更正選項 > 隨打隨套用，並勾選「直式引號」取代為「智慧引號」複選框。請參閱螢幕截圖。

步驟 2. 按一下首頁 > 取代（位於）編輯群組），或按下 Ctrl + H 以開啟查找和替換對話方塊，並在「或‘’欄位中輸入尋找目標，再於‘或’’欄位中輸入取代為。請參閱螢幕截圖：

步驟 3. 點擊全部取代。

注意：若您想將所有彎引號替換為直引號，請取消勾選「直式引號」取代為「智慧引號」複選框。

---

使用 VBA 將直引號改為彎引號

若要在 Word 2010 中透過 VBA 將所有直引號替換為彎引號，請先依序點選檔案 > 選項 > 校訂，再點選自動更正選項，並勾選「直式引號」取代為「智慧引號」複選框，操作步驟如下。（注意：若您希望將所有彎引號替換為直引號，請取消勾選「直式引號」取代為「智慧引號」複選框。）

步驟 1：按下「Alt-F11」以開啟 Microsoft Visual Basic for Applications 視窗；

步驟 2：按一下模組（位於）插入索引標籤），將下列 VBA 程式碼複製並貼上至模組視窗中；

步驟 3：接著點擊執行按鈕，立即套用 VBA！

下列 VBA 程式碼可將直引號改為彎引號：

Sub ChangeDoubleStraightQuotes()
'Update 20131107
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:=wdReplaceAll
End Sub

下列 VBA 程式碼可將彎引號改為直引號：

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub

---