5. 把 Word 打造成英语学习利器

1. MS Word 2007 的 “鼠标取词” 功能
2. MS Word 2007 的 “词典面板”
3. MS Word 2007 的 “同近义辞典”（Thesaurus）
4. MS Word 2007 的 “英语助手”
5. 为 MS Word 2007 设置单词朗读功能
6. 用 Word 2007 为自己定制阅读文章词汇列表
7. 附录:我的常用宏代码

• “Word 选项”->“自定义”->“键盘快捷方式自定义”；
• 在 “自定义键盘” 对话框中选定：“指定命令”->“类别(C):” 中选择 “所有命令”
• 在 “命令(O)” 中选择 ToolsThesaurus，
• 在 “请按快捷键(N)” 之下的输入框里点一下鼠标左键，然后同时按下 “Ctrl+Shift+F7”，而后点击左下角的 “指定” 按钮，而后关闭该对话框。（当然，读者可以根据自己的喜好选择快捷键的组合方式……）

http://office.microsoft.com/Research/query.asmx

Sub SpeakText() 
    On Error Resume Next 
    Set speech = New SpVoice 
    Selection.MoveLeft Unit:=wdWord, Count:=1 
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend 
    If Len(Selection.Text) > 1 Then
        speech.Speak Trim(Selection.Text), SVSFlagsAsync + SVSFPurgeBeforeSpeak 
    End If 
    Selection.MoveRight Unit:=wdWord, Count:=1 
    Do 
        DoEvents 
    Loop Until speech.WaitUntilDone(10) 
    Set speech = Nothing 
End Sub 

• neonatal
• burgeoning
• endoscopic
• snaking
• gallbladders
• jabbed
• sales pitch
• laparoscopic
• lickety-split

'要使用该宏，需事先安装Merriam-Webster Collegiate Dictionary 
Sub LookUpMerriamWebsterDictionary() 
'MWDictionary Macro 
     Selection.MoveLeft Unit:=wdWord, Count:=1 
     Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend 
     Selection.Copy 
     Selection.MoveRight Unit:=wdWord, Count:=1 
     If Tasks.Exists("Merriam-Webster") = True Then 
        With Tasks("Merriam-Webster") 
            .Activate 
            .WindowState = wdWindowStateNormal 
        End With 
         SendKeys "%ep{ENTER}", 1 
     Else 
        Response = MsgBox("Task Merriam-Webster doesn't exist! Run the application before use this Macro, please.", vbExclamation, "WARNING!") 
    End If 
End Sub 
Sub SpeakTheWord() 
    On Error Resume Next 
    Set speech = New SpVoice 
    Selection.MoveLeft Unit:=wdWord, Count:=1 
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend 
    If Len(Selection.Text) > 1 Then 'speak selection 
        speech.Speak Trim(Selection.Text), _ 
        SVSFlagsAsync + SVSFPurgeBeforeSpeak 
    End If 
    Selection.MoveRight Unit:=wdWord, Count:=1 
    Do 
        DoEvents 
    Loop Until speech.WaitUntilDone(10) 
    Set speech = Nothing 
End Sub 
' 为选中的文本加上双引号 
Sub AddDoubleQuotationMarks() 
    Selection.InsertBefore ("“") 
    Selection.InsertAfter ("”") 
    Selection.MoveRight Unit:=wdWord, Count:=1 
End Sub 
' 指定选中文本的字体 
Sub ChangeFontNameTo() 
    Selection.Font.Name = "Georgia" 
End Sub 
' 指定选中文本的字号大小 
Sub ChangeFontSizeTo() 
    Selection.Font.Size = 28 
End Sub 
' 将选中文本的字号放大 
Sub FontSizeGrow() 
    Selection.Font.Grow 
End Sub 
' 将选中文本的字号缩小 
Sub FontSizeShrink() 
    Selection.Font.Shrink 
End Sub 
' 将双标所在的词汇首字母变成大写 
Sub FirstLetterToUppercase() 
    Selection.MoveLeft Unit:=wdWord, Count:=1 
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
    Selection.Text = UCase(Selection.Text) 
    Selection.MoveRight Unit:=wdWord, Count:=1 
End Sub