如何让电脑说话？

电脑中往往都内置说话程序，当我们google或有道翻译（百度翻译也很棒。。。）时，才能有缘听到自己电脑的声音，大多数是女声，个别是男声。

那么如何主动让电脑说出自己想说的话呢。

* 单独设置一个小程序让电脑说话：

1.  右键菜单，新建一个txt文本文档

2.  打开新建的txt文本文件

3.  将下面这段代码复制进去：

Dim userInput

userInput = InputBox("在下面输出你想让电脑说的话!")

Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

Sapi.speak userInput

4.  保存并关闭这个文件

5.  右键点击文件，重命名更改后缀名称，将.txt改为.vbs

6.  改名后保存，文件变成如下图标，至此创建完成。

7.  双击文件，在空白框框中输入想让电脑说的话，就可以听到自己电脑说话的声音了。

* 若是嵌入excel里面，可以通过vba编写宏实现（宏和VBA的按钮以及安全设置这里不详细说）

1.  不妨设置一个按钮

2.  然后打开Visual Basic编辑器，输入以下代码：

Sub Speak()

Dim userInput

userInput = InputBox("在下面输出你想让电脑说的话!")

Application.Speech.Speak (userInput)

End Sub

3. 效果和小程序差不多，见下图，当然也可以直接把要说的话放入Speak函数里，结合计时器等可以“伪造”人工智能，还可以做很多有创意的事。当然各位导演们肯定已经写起自己的小剧本了，赶紧试试吧！