我们在WORD排版过程中经常会遇到引号的麻烦，比如文档主体字体是微软雅黑或者其他字体，引号可能呈现出来是英文引号的样子，对文档美观有很大的影响，另外一种情况是引号缺失，我们可以采用宏命令解决这个问题，将文档中的引号全部修改为宋体成对的中文字体，通过浏览，也可以更容易地发现引号缺失的问题，具体代码如下：


' 使用方法

'1、全选并复制本文档内容，进入WORD，打开文件，将光标置于文档最前面

'2、单击【视图】|【宏】|【查看宏】|【编辑】，然后粘贴本文档内容，关闭

'3、再次单击【视图】|【宏】|【查看宏】，双击列表中一个宏命令，即可执行

Sub 引号成对匹配() '英文引号→中文引号，如果执行无响应可关闭WORD后重新打开文档执行

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)

.Font.Name = "宋体"

.Find.Execute

.Text = ChrW(8221)

.Font.Name = "宋体"

Wend

End With

End Sub