跳到主要内容

如何在单词中将直引号更改为大括号?

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

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

使用VBA将直接引号更改为卷曲引号


箭头蓝色右气泡 使用查找和替换将直引号更改为卷曲引号

Office 选项卡:为 Word、Excel、PowerPoint 带来选项卡式界面...
ot字中间广告100
立即增强您的工作流程。      了解更多       免费下载

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

在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

最佳办公生产力工具

Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!

深入了解下面突出显示的功能或 单击此处探索 Kutools for Word 的全部功能.

📘 文档掌握: 分页  /  合并文件  /  以各种格式导出选择(PDF/TXT/DOC/XLSX)  /  批量转换为PDF  /  将页面导出为图像  /  一次打印多个文件 ...

内容编辑: 批量查找和替换 跨多个文件   /  调整所有图片的大小   /  转置表行和列  /  将表格转换为文字 ...

🧹 轻松清洁扫开 多余的空间  /  分节符  /   所有标题  /  文本框  /  超链接  /  如需更多删除工具,请前往我们的删除组

创意插入: 插页 千位分隔符  /  复选框  /  单选按钮  /  二维码  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  /  在我们的插入组中发现更多信息

🔍 精准选择: 精确定位特定页面  /    /  形状  /  标题段落  /  使用我们的选择组轻松导航

星级增强: 快速导航至任何位置  /  自动插入重复文本  /  在文档窗口之间无缝切换  /  11 转换工具 ...

使用 Kutools 转换您的 Word 任务。 👉 立即下载并试用 30 天 🚀。

了解更多       免费下载      购买
 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA code method for changing "straight" to "smart" quotes worked perfectly! Thank you!
This comment was minimized by the moderator on the site
My problem is that I have work normally in German but have an English document, which I marked as "English". Then I did find&replace and it converted them to lower " and upper " as it would happen in German. I looked at all the settings but I couldn't find it. I changed the dictionary language and everything else I could find to English... any idea?
This comment was minimized by the moderator on the site
This is my problem too. Did you ever find an answer?
This comment was minimized by the moderator on the site
Your explanation for replacing in Find/Replace from instruction #2 on is completely incomprehensible.
This comment was minimized by the moderator on the site
I think I found the explanation on another page. If you simply do a replace all and ask it to replace either single quotes or double quotes with the exact same symbol, it will go through and apply your autocorrect rules, including to replace straight quotes with smart quotes. So it should update those all to smart quotes as it goes.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations