如何在 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

---