金山词霸生词本中的内容导出为文本文件时,音标是用特定的符号来代替的,你必须把它改成金山词霸附带的字体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
???????