如何在单词中将直引号更改成大括号？-英雄云拓展知识分享

通常，Microsoft Word会自动更改直引号 捲曲（智能正字设计师）的报价 在您键入时。 但是，如果关闭此功能，则单引号和双引号都可能会直接出现在文档中。 这里有一些技能，可帮助您在Word中将直引号更改成大括号，反之亦然。

使用查找和替换将直引号更改成捲曲引号

使用VBA将直接引号更改成捲曲引号

使用查找和替换将直引号更改成捲曲引号

申请前 查找和替换，你应当去 自动更正选项 取消选中 “直引号”与“智能引号” 复选框。

在Word 2003中， 自动更正选项 在...之下 工具 酒吧。 在Word 2007中，利用 自动更正选项 经过点击  > 选项 > 打样 > 自动更正选项。 这里以Word 2010/2013为例：

步骤1。 点击  > 选项 > 打样 > 自动更正选项 > 键入时自动套用，然后选择 “直引号”与“智能引号” 复选框。 查看截图：

步骤2。 点击 首页 > 更换 在 编辑 分组或按 Ctrl + H 显示 查找和替换 对话框，然后输入 “or “ in 查找内容 框，然后输入 “ or ''in 更换 框。 看截图：

步骤3。 点击 “全部替换”.

注意： 如果要用直引号替换所有大括号，请清除 “直引号”与“智能引号” 复选框）。

使用VBA将直接引号更改成捲曲引号

若要使用VBA在Word 2010中将所有直引号替换为捲曲引号，请单击 文件> 选项 > 打样 并点击 自动更正 选项 并选择 “直引号”与“智能引号” 复选框，以下所示。 （备注：如果要用直引号替换所有大括号，请清除“直引号”和“智能引号”复选框。

步骤1：按“ALT-F11”以打开“ Microsoft Visual Basic for Application”窗口；

步骤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