返回首页
当前位置: 主页 > 精通Office > Word教程 >

Word中弯引号与直引号的相互转换

时间:2016-12-18 21:31来源:知行网www.zhixing123.cn 编辑:麦田守望者

Microsoft Word 能在您键入时自动将直引号( ' 或 " )改为弯引号(‘ ’或“”)。

打开或关闭此功能的方法是:
1、在“工具”菜单上,单击“自动更正选项”,然后单击“键入时自动套用格式”选项卡。在“键入时自动替换”下,选中或清除“直引号替换为弯引号”复选框。
2、可查找文档中所有单、双弯引号,并全部替换为直引号。单击“编辑”菜单中的“替换”。在“查找内容”和“替换为”框中,键入 ' 或 ",然后单击“查找下一处”或“全部替换”按钮。

如果要用弯引号替换所有的直引号,请选中“直引号替换为弯引号”复选框,并重复上述查找和替换步骤。

根据上面的精神,编写了一个代码备用,也供大家参考。
Sub ConvertQuotes(BendToStraight As Boolean, SingleQuotes As Boolean)
'用于弯引号与直引号之间的转换
'前一个参数设置是否是弯引号转换成直引号,如果是则设为true,相反设为false
'第二个参数设置是否是单引号的转换,如果是则设为TRUE,如果是双引号转换设为false
Dim oldReplaceQuotesOption As Boolean
Dim strQuotes As String
strQuotes = IIf(SingleQuotes, "'", """")
'取得原来选项
oldReplaceQuotesOption = Word.Options.AutoFormatAsYouTypeReplaceQuotes
'根据需要更改选项
If BendToStraight Then '弯引号替换成直引号
Word.Options.AutoFormatAsYouTypeReplaceQuotes = False
Else '直引号替换成弯引号
Word.Options.AutoFormatAsYouTypeReplaceQuotes = True
End If
'执行替换
ReplaceQuotes (strQuotes)
Word.Options.AutoFormatAsYouTypeReplaceQuotes = oldReplaceQuotesOption '恢复原来选项
'End With
End Sub
Sub ReplaceQuotes(fQuotes As String) '替换子过程
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = fQuotes
.Replacement.Text = fQuotes
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
'调用示例一
Sub 转换()’将单的弯引号转换成直引号
Call ConvertQuotes(True, True)
End Sub

顶一下
(0)
0%
踩一下
(0)
0%
标签(Tag):Word2007 Word word添加文字水印 word添加图片水印
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片