跳到主要内容

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

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

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

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

推荐的Word生产工具

Kutools for Word:整合人工智能 🤖,超过 100 种高级功能可节省 50% 的文档处理时间。免费下载

Office Tab:在 Word(和其他 Office 工具)中引入类似浏览器的选项卡,简化了多文档导航。免费下载


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

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 人工智能助手:用人工智能改变你的写作 - 生成内容  /  重写文本  /  总结文件  /  查询资料 基于文档,全部在Word中

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

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

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

创意插入: 插 千位分隔符  /  复选框  /  单选按钮  /  扫码支付  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  / 发现更多 插入组...

🔍 精准选择:精确定位 特定页面  /    /  形状  /  标题段落  / 增强导航功能 更多 选择功能...

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

👉 想尝试这些功能吗? Kutools for Word 提供了 60-day免费试用,没有任何限制! 🚀
 
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