编程技术、软件应用与系统模拟

(Programming, Applicaiton and Simulation)


		本站目录
		首页 ASP/Access/IIS DELPHI/PASCAL PASCAL高级编程 C语言编程实例 WORD Excel MATLAB MINITAB讲座 Windows DOS SAS 生物系统模拟土壤水分剖析器其他


		镜像站点
		主站北美镜象站欧洲镜象站(1) 欧洲镜象站(2)

座右铭:
只做有益人类的事
不做有害人类的事

一次替换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后，就可以是在宏对话窗口中选择并运行该宏命令了。首先将插入点定位在第一个配对的直引号（"）前，运行该宏，它会自动按配对的方式将直引号替换为双引号。为了使用方便，可以把该宏定义到工具栏上，使用时只须单击工具栏按钮即可。