用word打印金山词霸生词本中的内容

金山词霸生词本中的内容导出为文本文件时，音标是用特定的符号来代替的，你必须把它改成金山词霸附带的字体Kingsoft Phonetic才能正常显示。但是，如果生词很多，一个一个修改是很费力的工作。

导出的文件示例：

+petty
/adj.小的, 不重要的, 小规模的, 小型的, 细微的, 小器的, 卑鄙的
&5peti
+phase
/n.阶段, 状态, 相, 相位
/v.定相
&feiz
因此，我利用Word的VBA写了一个宏，利用它自动完成字体的变更。

代码如下：

Sub Macro2()
'
' Macro2 Macro
' 宏在 2004-06-26 由?L1t 录制
'
??? Selection.Find.ClearFormatting '查找第一个字符是"&"的行
??? With Selection.Find
??????? .Text = "&"
??????? .Replacement.Text = ""
??????? .Forward = True
??????? .Wrap = wdFindContinue
??????? .Format = False
??????? .MatchCase = False
??????? .MatchWholeWord = False
??????? .MatchByte = True
??????? .MatchWildcards = False
??????? .MatchSoundsLike = False
???????