word怎么改正错误单词_给孩子制作一个自动阅读的单词表

其实在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

课件:

https://share.weiyun.com/5Alm5OU