其实在OFFICE组件里面都会有朗读的功能，
当然，其实很多功能你可以把它们用得很智能.
今天我们主要来讲，怎么样做成一个阅读单词表，实现功能：当你选择某一个单元格，则会自动的朗读出来.
为了区分Excel,PPT,Word的阅读功能差异，
我先来简单的讲一下Word,如果你的Word中有这么一段生僻字.你想把它阅读出来，或者你有一个文档，你想要把他读出来你可以这么做.
选择>>自定义工具栏>>其他命令选择>>所有命令>>朗读>>添加于是乎，你会在左上角，发现一个新的按钮
当你选择这些字，然后点击上方按钮的时候，这些生僻字就会被读出来了.包括英文也是可以阅读的.
PPT中的操作一样.
但是在EXCEL中就不一样了.
你以同样的方式去做的话如下图：这张表格会出现全篇阅读的问题.
不管你是通过录制宏的方式还是怎么样，都是不可行的.
所以我们可以写一小段的VBA代码来解决这个问题.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'由于在表格中来执行选择即改变，所以需要用到这样的模式.If Target.Count > 1 Then Exit Sub
'当你选择多个单元格，那么这个过程不会生效.因为不可能同时读好几个单词.Dim X As IntegerX = Range("B" & Rows.Count).End(xlUp).Row
'数一数B列的最后一行，如果是C列就把中间的B改成C,算是一个固定用法.
If Not Intersect(Target, Range("B5:B" & X)) Is Nothing Then
'当Target在范围中的时候，我们则执行下面的过程.Target.Speak
'单元格内容朗读.End If
End Sub