diff --git a/book/chapter5.md b/book/chapter5.md
index 55db4af0..54c508da 100644
--- a/book/chapter5.md
+++ b/book/chapter5.md
@@ -166,7 +166,7 @@ MS Word 从 2007 版本开始内嵌了 “鼠标取词” 功能。其所采用
-而后在底部 “地址(A)” 之后的文字输入框里输入：“http://office.microsoft.com/Research/query.asmx”而后按“添加”按钮：
+而后在底部 “地址(A)” 之后的文字输入框里输入：“http://office.microsoft.com/Research/query.asmx” 而后按“添加”按钮：
@@ -182,20 +182,22 @@ MS Word 从 2007 版本开始内嵌了 “鼠标取词” 功能。其所采用
之后再 VBA 编辑器的左侧 “工程” 面板里鼠标双击选定 “Normal – Microsoft Word 对象-ThisDocument”，程序主面板里输入以下 VBA 代码：
-
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
+```vba
+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
+```
按快捷键 “CTRL+S” 保存之后关闭 VBA 编辑器。而后，就可以为这个宏设置快捷键了 —— 我个人选择是 “CTRL+SHIFT+S”。
@@ -234,74 +236,76 @@ MS Word 还有个很好的功能：“选择格式相似的文本(S)”。这样
以下是我个人常用的宏的代码：
-'要使用该宏，需事先安装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
+```vba
+'要使用该宏，需事先安装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 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 AddDoubleQuotationMarks()
+ Selection.InsertBefore ("“")
+ Selection.InsertAfter ("”")
+ Selection.MoveRight Unit:=wdWord, Count:=1
+End Sub
-' 指定选中文本的字体
-Sub ChangeFontNameTo()
- Selection.Font.Name = "Georgia"
-End Sub
+' 指定选中文本的字体
+Sub ChangeFontNameTo()
+ Selection.Font.Name = "Georgia"
+End Sub
-' 指定选中文本的字号大小
-Sub ChangeFontSizeTo()
- Selection.Font.Size = 28
-End Sub
+' 指定选中文本的字号大小
+Sub ChangeFontSizeTo()
+ Selection.Font.Size = 28
+End Sub
-' 将选中文本的字号放大
-Sub FontSizeGrow()
- Selection.Font.Grow
-End Sub
+' 将选中文本的字号放大
+Sub FontSizeGrow()
+ Selection.Font.Grow
+End Sub
-' 将选中文本的字号缩小
-Sub FontSizeShrink()
- Selection.Font.Shrink
-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
+' 将双标所在的词汇首字母变成大写
+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
+```
## 6 .关于韦氏词典