NO.1

Excel可以将文件转化为语音进行朗读，这方面来说，是一个很人性化的功能。对于一些特殊情形下，通过语音来进行人机交互，更加显得易交互。

如何把Excel表格内容转化为语音，下面做一个介绍。

Speak功能是将文本发送到语音”(TTS) 引擎，然后通过音响输出语音。

如果听不到声音，可能是没有安装音响，或者没有安装语音引擎。

NO.2

Speak语法

Range.Speak(SpeakDirection, SpeakFormulas)

Speak有两个参数

SpeakDirection一个指按行朗读还是按列阅读其值为0、1。

SpeakFormulas是个布尔型，True或False。表示朗读单元格数据还是公式。

True读公式，False读数值。

其实这两参数还是容易理解的，只多练习，掌握使用方法不会很难。

具体方法参数如下图：

NO.3

代码

统一使用一个过程来实现不同朗读方式，在按钮过程中调用此函数即可以。

Private Sub SpeakRange(sr, sf)

With Selection

.Speak SpeakDirection:=sr, SpeakFormulas:=sf

End With

End Sub

先行后列朗读单元值

Private Sub CommandButton1_Click()

Dim sr As Variant, sf As Boolean

sr = 0

sf = False

Call SpeakRange(sr, sf)

End Sub

先列后行朗读单元值

Private Sub SpeakRange(sr, sf)

With Selection

.Speak SpeakDirection:=sr, SpeakFormulas:=sf

End With

End Sub

朗读数值

Private Sub CommandButton3_Click()

Dim sr As Variant, sf As Boolean

sr = 1

sf = False

Call SpeakRange(sr, sf)

End Sub

朗读公式

Private Sub CommandButton4_Click()

Dim sr As Variant, sf As Boolean

sr = 1

sf = True

Call SpeakRange(sr, sf)

End Sub

本例比较简单，主要是两参数值进行变化，实现朗读内容和方式。

有这方面需求，可以试着用上面的代码对单元格内容朗读一下。

---END---

欢迎关注、收藏