WORD中如何批量把单引号替换成中文双引号?

风清扬斈 4年前 (2015-10-09) 信息科技 1379 0

 使用宏的方法:

添加一个新的宏,并执行,代码如下:

 

Selection.HomeKey unit:=wdStory (i)移到文档首位置

With Selection.Find (i)设置查找条件

.ClearFormatting (i)清除查找格式

.Replacement.ClearFormatting (i)(i)清除替换格式

.Text = """" (i)查找的文字为"

While .Execute: Selection.Text = ChrW(8220) (i)每次找到后将选定文本修改为前引号

.Execute: Selection.Text = ChrW(8221) (i)每次找到后将选定文本修改为后引号

Wend

End With

End Sub (i)----------------------

 如果还有单引号,继续执行如下代码:

 

Selection.HomeKey unit:=wdStory (i)移到文档首位置

With Selection.Find (i)设置查找条件

.ClearFormatting (i)清除查找格式

.Replacement.ClearFormatting (i)(i)清除替换格式

.Text = "(i)(i)" (i)查找的文字为"

While .Execute: Selection.Text = ChrW(8223) (i)每次找到后将选定文本修改为前引号

.Execute: Selection.Text = ChrW(8224) (i)每次找到后将选定文本修改为后引号

Wend

End With

End Sub (i)----------------------

 

以上代码修改自

(i)* +++++++++++++++++++++++++++++ (i)*
Created By 守柔(ShouRou)@ExcelHome 2005-2-21 6:07:58
(i)仅测试于System: Windows NT Word: 10.0 Language: 2052
(i)^The Code CopyIn [ThisDocument-ThisDocument]^
(i) (i)* -----------------------------

"

相关推荐

  • 网友评论

    • (*)

    最新评论