一次替换WORD文档中的直引号为双引号
董占山
为了节省时间，有些WORD文档中的全角双引号（""）都打成了半角直引号（"），这不符合中文的习惯，需要把它们替换为双引号。我用WORD的替换功能尝试了多次，打算一次将所有的直引号按匹配的方式替换为双引号，都没有成功，于是就编写了一个可以完成此工作的宏命令ReplaceQuote。创建宏命令很简单，单击"工具"*"宏"*"宏"，打开宏对话窗口，在"宏名"编辑框中填"ReplaceQuote"，单击"创建"按钮，打开Visual Basic编辑器，在代码窗口中输入下面的代码，然后保存工作。
ReplaceQuote宏
程序清单如下：
Sub ReplaceQuote()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Forward = True
.Wrap = wdStop
.MatchByte = True
End With
With Selection
While .Find.Execute
.Text = ChrW(8220)
.Find.Execute
.Text = ChrW(8221)
Wend
End With
End Sub
返回到WORD后，就可以是在宏对话窗口中选择并运行该宏命令了。首先将插入点定位在第一个配对的直引号（"）前，运行该宏，它会自动按配对的方式将直引号替换为双引号。为了使用方便，可以把该宏定义到工具栏上，使用时只须单击工具栏按钮即可。
©董占山Zhanshan Dong
| 