提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何将单引号改为单引号?

通常,Microsoft Word将自动更改直引号 卷曲(巧妙的ortypographer的)报价 当你键入。 但是,如果关闭该功能,则单引号和双引号可能会直接出现在文档中。 这里有一些技巧可以让你在Word中将直引号改为卷引号,反之亦然。

Chang直接引用查找和替换的引号

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


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

热卖
惊人! 使用Word(Office)中的高效选项卡,如Chrome,Firefox和新Internet Explorer!

了解更多 免费下载

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

在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



推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sri · 9 months ago
    The VBA code method for changing "straight" to "smart" quotes worked perfectly! Thank you!
  • To post as a guest, your comment is unpublished.
    no name · 1 years ago
    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?
  • To post as a guest, your comment is unpublished.
    Bill Smith · 5 years ago
    Your explanation for replacing in Find/Replace from instruction #2 on is completely incomprehensible.
    • To post as a guest, your comment is unpublished.
      Dustin · 3 years ago
      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.