使用宏的方法:
添加一个新的宏,并执行,代码如下:
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)* -----------------------------
网友评论
最新评论