|
|
前一段时间，经常为英文的直引号和弯引号迷惑，还以为是什么原因，替换也不行。找到了解决的方法。http://office.microsoft.com/zh-cn/word/HP051901242052.aspx
摘录如下：
将弯引号改为直引号或进行相反地转换
适用于: Microsoft Office Word 2003
Microsoft Word 能在您键入时自动将直引号（ ' 或 " ）改为弯引号（ 或 ）。
打开或关闭此功能的方法是：
在“工具”菜单上，单击“自动更正选项”，然后单击“键入时自动套用格式”选项卡。
在“键入时自动替换”下，选中或清除“直引号替换为弯引号”复选框。
注释 可查找文档中所有单、双弯引号，并全部替换为直引号。方法是，首先清除“键入时自动套用格式”选项卡上的“直引号替换为弯引号”复选框。单击“编辑”菜单中的“替换”。在“查找内容”和“替换为”框中，键入 ' 或 "，然后单击“查找下一处”或“全部替换”按钮。
如果要用弯引号替换所有的直引号，请选中“直引号替换为弯引号”复选框，并重复上述查找和替换步骤。
根据上面的精神，编写了一个代码备用，也供大家参考。
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 |
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2009-5-11 13:39
