宏：word中给双引号配对很好用

宏：word中给双引号配对很好用
使用心得：在word中用查找替换将西文双引号替换为中文双引号时，文中的双引号都成了“““ ，很不爽。找到了这个网文，看到最后也未搞懂“全角双引号（""）”和“半角直引号（"）”的区别，但用来将“““改成配对的双引号很好用，特推荐。

１、在word的“工具”→“宏...”→“创建”
２、复制蓝色部分替换掉Normal-Newmacros(代码)中的所有内容，运行宏即可。
３、有的网文，文中引号不配对，运行完宏后错误位置应该很好找，只要找到缺引号的第一个位置手工加入引号，在该位置之前再运行该宏就ok啦。


*****************************************************************
一次替换WORD文档中的直引号为双引号
--------------------------------------------------------------------------------

发表日期：2003年7月1日 作者：董占山 已经有462位读者读过此文 【编辑录入：张保国】

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