Skip to content

Commit

Permalink
[fix]Fix code block display error (#486)
Browse files Browse the repository at this point in the history
  • Loading branch information
@ramsayleung
ramsayleung authored Apr 12, 2024
1 parent d067f4a commit fe61c3d
Showing 1 changed file with 87 additions and 83 deletions.
170 changes: 87 additions & 83 deletions book/chapter5.md
View file
Original file line number Diff line number Diff line change
Expand Up @@ -166,7 +166,7 @@ MS Word 从 2007 版本开始内嵌了 “鼠标取词” 功能。其所采用

![](images/figure27.png)

而后在底部 “地址(A)” 之后的文字输入框里输入：“http://office.microsoft.com/Research/query.asmx”而后按“添加”按钮：
而后在底部 “地址(A)” 之后的文字输入框里输入：“http://office.microsoft.com/Research/query.asmx” 而后按“添加”按钮：

![](images/figure272.png)

Expand All @@ -182,20 +182,22 @@ MS Word 从 2007 版本开始内嵌了 “鼠标取词” 功能。其所采用

之后再 VBA 编辑器的左侧 “工程” 面板里鼠标双击选定 “Normal – Microsoft Word 对象-ThisDocument”，程序主面板里输入以下 VBA 代码：

<img src="/images/speech-tract-$1.svg" class="themed" />Sub SpeakText()
<img src="/images/speech-tract-$1.svg" class="themed" /> On Error Resume Next
<img src="/images/speech-tract-$1.svg" class="themed" /> Set speech = New SpVoice
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveLeft Unit:=wdWord, Count:=1
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
<img src="/images/speech-tract-$1.svg" class="themed" /> If Len(Selection.Text) > 1 Then
<img src="/images/speech-tract-$1.svg" class="themed" /> speech.Speak Trim(Selection.Text), SVSFlagsAsync + SVSFPurgeBeforeSpeak
<img src="/images/speech-tract-$1.svg" class="themed" /> End If
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveRight Unit:=wdWord, Count:=1
<img src="/images/speech-tract-$1.svg" class="themed" /> Do
<img src="/images/speech-tract-$1.svg" class="themed" /> DoEvents
<img src="/images/speech-tract-$1.svg" class="themed" /> Loop Until speech.WaitUntilDone(10)
<img src="/images/speech-tract-$1.svg" class="themed" /> Set speech = Nothing
<img src="/images/speech-tract-$1.svg" class="themed" />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”。

Expand Down Expand Up @@ -234,74 +236,76 @@ MS Word 还有个很好的功能：“选择格式相似的文本(S)”。这样

以下是我个人常用的宏的代码：

<img src="/images/speech-tract-$1.svg" class="themed" />'要使用该宏，需事先安装Merriam-Webster Collegiate Dictionary
<img src="/images/speech-tract-$1.svg" class="themed" />Sub LookUpMerriamWebsterDictionary()
<img src="/images/speech-tract-$1.svg" class="themed" />'MWDictionary Macro
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveLeft Unit:=wdWord, Count:=1
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.Copy
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveRight Unit:=wdWord, Count:=1
<img src="/images/speech-tract-$1.svg" class="themed" /> If Tasks.Exists("Merriam-Webster") = True Then
<img src="/images/speech-tract-$1.svg" class="themed" /> With Tasks("Merriam-Webster")
<img src="/images/speech-tract-$1.svg" class="themed" /> .Activate
<img src="/images/speech-tract-$1.svg" class="themed" /> .WindowState = wdWindowStateNormal
<img src="/images/speech-tract-$1.svg" class="themed" /> End With
<img src="/images/speech-tract-$1.svg" class="themed" /> SendKeys "%ep{ENTER}", 1
<img src="/images/speech-tract-$1.svg" class="themed" /> Else
<img src="/images/speech-tract-$1.svg" class="themed" /> Response = MsgBox("Task Merriam-Webster doesn't exist! Run the application before use this Macro, please.", vbExclamation, "WARNING!")
<img src="/images/speech-tract-$1.svg" class="themed" /> End If
<img src="/images/speech-tract-$1.svg" class="themed" />End Sub

<img src="/images/speech-tract-$1.svg" class="themed" />Sub SpeakTheWord()
<img src="/images/speech-tract-$1.svg" class="themed" /> On Error Resume Next
<img src="/images/speech-tract-$1.svg" class="themed" /> Set speech = New SpVoice
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveLeft Unit:=wdWord, Count:=1
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
<img src="/images/speech-tract-$1.svg" class="themed" /> If Len(Selection.Text) > 1 Then 'speak selection
<img src="/images/speech-tract-$1.svg" class="themed" /> speech.Speak Trim(Selection.Text), _
<img src="/images/speech-tract-$1.svg" class="themed" /> SVSFlagsAsync + SVSFPurgeBeforeSpeak
<img src="/images/speech-tract-$1.svg" class="themed" /> End If
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveRight Unit:=wdWord, Count:=1
<img src="/images/speech-tract-$1.svg" class="themed" /> Do
<img src="/images/speech-tract-$1.svg" class="themed" /> DoEvents
<img src="/images/speech-tract-$1.svg" class="themed" /> Loop Until speech.WaitUntilDone(10)
<img src="/images/speech-tract-$1.svg" class="themed" /> Set speech = Nothing
<img src="/images/speech-tract-$1.svg" class="themed" />End Sub

<img src="/images/speech-tract-$1.svg" class="themed" />' 为选中的文本加上双引号
<img src="/images/speech-tract-$1.svg" class="themed" />Sub AddDoubleQuotationMarks()
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.InsertBefore ("“")
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.InsertAfter ("”")
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveRight Unit:=wdWord, Count:=1
<img src="/images/speech-tract-$1.svg" class="themed" />End Sub

<img src="/images/speech-tract-$1.svg" class="themed" />' 指定选中文本的字体
<img src="/images/speech-tract-$1.svg" class="themed" />Sub ChangeFontNameTo()
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.Font.Name = "Georgia"
<img src="/images/speech-tract-$1.svg" class="themed" />End Sub

<img src="/images/speech-tract-$1.svg" class="themed" />' 指定选中文本的字号大小
<img src="/images/speech-tract-$1.svg" class="themed" />Sub ChangeFontSizeTo()
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.Font.Size = 28
<img src="/images/speech-tract-$1.svg" class="themed" />End Sub

<img src="/images/speech-tract-$1.svg" class="themed" />' 将选中文本的字号放大
<img src="/images/speech-tract-$1.svg" class="themed" />Sub FontSizeGrow()
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.Font.Grow
<img src="/images/speech-tract-$1.svg" class="themed" />End Sub

<img src="/images/speech-tract-$1.svg" class="themed" />' 将选中文本的字号缩小
<img src="/images/speech-tract-$1.svg" class="themed" />Sub FontSizeShrink()
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.Font.Shrink
<img src="/images/speech-tract-$1.svg" class="themed" />End Sub

<img src="/images/speech-tract-$1.svg" class="themed" />' 将双标所在的词汇首字母变成大写
<img src="/images/speech-tract-$1.svg" class="themed" />Sub FirstLetterToUppercase()
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveLeft Unit:=wdWord, Count:=1
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.Text = UCase(Selection.Text)
<img src="/images/speech-tract-$1.svg" class="themed" /> Selection.MoveRight Unit:=wdWord, Count:=1
<img src="/images/speech-tract-$1.svg" class="themed" />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 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
```

## 6 .关于韦氏词典

Expand Down

0 comments on commit fe61c3d

Please sign in to comment.