如何在 Word 中将直引号更改为弯引号？

Author: Amanda Li Last Modified: 2025-05-07

通常情况下，Microsoft Word 会自动将直引号更改为弯引号（智能或排版引号）。然而，如果该功能被关闭，单引号和双引号可能都会以直引号的形式出现在文档中。以下是如何在 Word 中将直引号更改为弯引号以及反过来操作的技巧。

使用查找和替换将直引号更改为弯引号

使用 VBA 将直引号更改为弯引号

使用查找和替换将直引号更改为弯引号

在应用 查找和替换之前，您需要前往自动更正选项，取消勾选“直引号”与“智能引号”复选框。

步骤 1. 点击文件 > 选项 > 校对 > 自动更正选项 > 键入时自动设置格式，并勾选 “直引号”与“智能引号”复选框。参见截图：

Word Options window with Proofing tab opened, AutoCorrect Options clicked

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

立即提升您的工作效率。 了解更多关于 Office Tab 的信息 免费下载地址

要在 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