前不久，笔者购买了一套《洪恩英语世纪行III》，里面有一个模块是《耳目一新读英语
》，里面共收录了5部经典英文小说，用它读小说的确节约了许多的查字典时间，只要把鼠标
移到单词上，轻点一下右键，音标和释义就会出现，非常方便。更好的是它可以将你不会的
生词保存起来，供日后记忆、复习。单词记录文件一般保存在C:\Human\Novel\目录下。单词
文件有两个:dict.txt和novel.txt,都是文本文件。其中dict.txt保存的是原单词和释义，novel.txt增添了音标，但是它是以文本方式存储的，用记事本打开看，中括号里的只是些Asc码，形如[5fIkFEnl]，并不是音标。这需要我们进行些转换。我们可以打开写字板或Word，
将dict.txt的文件插入文档中（或复制到文档中），选中中括号内的字符，然后把字体设置
成"HMPhone BDC",音标便会浮出"桌"面。
第一个问题已经解决，但是每个单词音标都要进行这样的转换，恐怕就是件很麻烦的事
了。于是笔者编了一段宏程序，很轻松的解决了这一问题，清单如下：
Sub 音标()
Selection.HomeKey Unit:=wdStory
Dim a(2) As String
a(1)="["
a(2)="]"
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
For i= 1 to 2
With Selection.Find
.Text = a(i)
.Replacement.Text = "/"
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
Dim m,m1 As Range
Dim P As Integer
For P = 1 To ActiveDocument.Paragraphs.Count
Set m = ActiveDocument.Paragraphs(P).Range.Characters(1)
Set m1 = ActiveDocument.Paragraphs(P).Range.Sentences(1)
If m = "/" Then
m1.Font.Name = "HMPhone BDC"
End If
Next PEnd Sub
程序的前一部分是把"["和"]"替换成"/"这是因为中括号转变成"HMPhone BDC"字体后会
变的面目全非。
该程序的输入步骤为：首先单击Word【工具】菜单【宏】子菜单下的【宏】菜单项，在
【宏名】下输入"音标",单击【创建】，然后在VBA编辑器下输入以上程序，最后别忘了保存
。这样一个名为"音标"的宏就编制完成了。
当你读小说积累了一定量的生词时，启动Word，单击【插入】菜单下的【文件...】菜单
项，在对话框的名为"文件类型"的下拉菜单中选中"文本文件"，找到dict.txt后选中，单击
【插入】。这样单词文本便复制到了Word文档里。
然后，单击【工具】菜单【宏】子菜单的【宏】菜单项，在宏对话框中选定"音标",最后
单击【执行】按钮即可。
这时如果连有打印机，将文档略微排版（最好分栏处理）后可以将其打印出来。一份精
美实用的单词表就制出来了。
利用这种方法，笔者每天可以背上50个单词，效果斐然。
