Skip to main content

如何在 Word 中將直引號更改為彎引號?

Author: Amanda Li Last Modified: 2025-08-06

通常,Microsoft Word 會自動將直引號 Straight quotes 更改為彎引號(智能或排版引號)。 Curly quotes 當您輸入時。但如果該功能被關閉,單引號和雙引號可能都會以直引號的形式出現在您的文檔中。以下是將直引號更改為彎引號以及反過來操作的技巧。

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

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

Straight quotes Arrow Curly quotes

推薦的 Word 生產力工具

Kutools for Word:整合 AI 🤖,超過 100 項進階功能,可節省 50% 的文檔處理時間。免費下載

Office Tab:為 Word(及其他 Office 工具)引入類似瀏覽器的標籤,簡化多文檔切換操作。免費下載


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

在應用「 查找和替換」之前,您應該進入「自動更正選項」取消勾選「直引號」與「智能引號」複選框。

步驟 1. 點擊 文件 > 選項 > 校對 > 自動更正選項 > 隨輸入自動設置格式,並勾選 「直引號」與「智能引號」複選框。參見截圖:

File menu with Options selected Arrow Word Options window with Proofing tab opened, AutoCorrect Options clicked
Arrow
AutoFormat As You Type section with 'Straight quotes' with 'smart quotes' checkbox selected

步驟 2. 點擊 首頁 > 替換 編輯組中或按 Ctrl + H 顯示查找和替換對話框,在 查找內容框中輸入 ‘’,在替換為框中輸入 ’’。參見截圖:

Find and Replace dialog

步驟 3. 點擊 全部替換

注意:如果您想將所有彎引號替換為直引號,請清除「直引號」與「智能引號」複選框。


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

Office Tab:為 Word、Excel、PowerPoint... 帶來分頁介面
Navigate through documents using Office Tab

要在 Word 2010 中使用 VBA 將所有直引號替換為彎引號,請點擊 文件 > 選項 > 校對,然後點擊 自動更正 選項 並勾選「直引號」與「智能引號」複選框,如下所示。(注意:如果您想將所有彎引號替換為直引號,請清除「直引號」與「智能引號」複選框)。

步驟 1:按下 Alt-F11 打開 Microsoft Visual Basic for Applications 窗口;

步驟 2:點擊 插入 標籤上的 模塊,複製並將以下 VBA 代碼粘貼到 模塊 窗口中;

步驟 3:然後點擊 運行 Run button 按鈕來應用 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

最佳辦公效率工具

Kutools for Word -讓你的 Word進階,擁有超過 100 項強大功能!

🤖 Kutools AI FeaturesAI Assistant / 即時助手 / 超級潤色(保留格式) / 超級翻譯(保留格式) / AI遮擋 / AI校正...

📘 文檔掌控文檔拆分頁面 / 文檔合併 / 選取內容多格式導出(PDF/TXT/DOC/HTML...)/ 批量轉換為 PDF...

內容編輯跨多個文件批量查找與替換 / 圖片大小統一調整 / 行列翻轉表格 / 表格轉文本...

🧹 潔淨無憂:一鍵清除多餘空格 / 分節符 /文字方塊 / 超鏈接 / 更多清除工具請至 清除所有 群組...

創新插入:插入千位分隔符 / 複選框 / 選項按鈕 / 二維碼 / 條形碼 / 批量插入圖片 / 更多插入功能請前往 插入 群組...

🔍 精準選取:鎖定特定頁面 / 表格 / 形狀 / 標題段落 / 使用更多 選取 功能提升導航效率...

優質強化輕鬆跳轉至文件夾 / 自動插入重複文字 / 切換文檔窗口 /11 轉換工具...

🌍 支援40+ 種語言:可用您的偏好語言體驗 Kutools —— 支援英語、西班牙語、德語、法語、中文等超過40 種語言!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想要體驗這些功能嗎?立即下載 Kutools for Word!🚀
 

最佳辦公效率工具

Kutools for Word - 100+ Word 工具