+ -
当前位置:首页 → 问答吧 → 关于一个替换宏代码的问题

关于一个替换宏代码的问题

时间:2011-01-05

来源:互联网

在网上学习了一个替换西方引号为中文引号的宏代码,运行效果良好。由于所学有限,后半部分看不懂:是如何没有用replacement就完成了替换?请高手给予指导。
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

作者: 润彩绘真   发布时间: 2011-01-05

引用:
原帖由 润彩绘真 于 2011-1-5 11:51 发表
在网上学习了一个替换西方引号为中文引号的宏代码,运行效果良好。由于所学有限,后半部分看不懂:是如何没有用replacement就完成了替换?请高手给予指导。
Sub ReplaceQuote()
   Selection.Find.ClearFormatting ...
它是使用查找的方法而非替换。当首次查找到西文引号时,Word将选定,然后改写为中文左引号,继续向下查找,找到后选定,更改为西文右引号,如此循环,直接查找结束。

作者: 守柔   发布时间: 2011-01-06

热门下载

更多