CreateObject("SAPI.SpVoice").Speak "会说话的电脑"
1 新建文本文档
2 复制 以下代码
CreateObject("SAPI.SpVoice").Speak "在这里黏贴小说的内容"
在上边代码的speak后面 双引号里面 黏贴 你的 小说
(
小说的内容里
(1) 不要有 双引号
你可以把双引号替换成 空格 或者 单引号
(2)不要有 回车
你可以在word里
在“替换”中输入:^p
点全部替换 就好了
如果还有 回车 就再在“替换”中输入:^l
)
3 最后 文件后缀名 由txt改成 vbs 比如(小说.txt 改成 小说.vbs)
PS:
如果你的操作系统是
win7的话 就能听 汉语 和英语 的小说
是XP的话 也许只能 听英文小说
标签:小说,SAPI,双引号,电脑,CreateObject,txt,黏贴
From: https://blog.51cto.com/u_16085348/6218423