使用宏的方法：

添加一个新的宏，并执行，代码如下：

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)* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－