[原创]我用excel背单词

doyyi · 发表于 2004-10-8 09:18

由于要学习英语，所以就制作了这个东东。要求1、操作系统是xp，并且是office xp以上的版本才能使用，如果office xp没有安装“文本到语音”功能将无法实现朗读功能。 2、将控制面版－－语音－文字语音转换－－语音选择设为microsoft sam

请大家批评指正，代码不加密！词库单词很少，有兴趣可自己增加！这个东东主要是使用了sleep函数从而实现了动画效果

1H5BhEgP.rar (13.72 KB, 下载次数: 284)

[此贴子已经被作者于2004-10-8 9:25:23编辑过]

FENGJUN · 发表于 2004-10-8 09:55

Good work.

可否提供有关sleep函数的知识？

兰色幻想 · 发表于 2004-10-8 09:24

有创意

longstein · 发表于 2007-1-5 21:09

不错，只是有点慢。

ybzdexcel · 发表于 2007-1-5 21:34

只读字母，能读单词就好了。

zhengrui-csb · 发表于 2012-2-15 16:10

很好的东东，但是太慢了，而且只能一个一个往下调

ning84 · 发表于 2013-3-11 15:53

本帖最后由 ning84 于 2013-3-15 17:31 编辑

调试了半天没有发声。

Public Declare Function SleepEx Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub gg() '朗读
'On Error Resume Next
Sheet1.Rows("3:3").ClearContents
Sheet1.Rows("7:7").ClearContents
Sheet1.[a1] = Sheet2.Cells(Sheet3.[a1], 1)
Application.Speech.Speak Sheet2.Cells(Sheet3.[a1], 1)
For i = 1 To Len(Sheet2.Cells(Sheet3.[a1], 1))
Sheet1.Cells(3, i) = Mid(Sheet2.Cells(Sheet3.[a1], 1), i, 1)
If Sheet3.[c1] = 1 Then
Application.Speech.Speak Sheet1.Cells(3, i)
End If
Sleep 500
Next
For ii = 1 To 4
Sheet1.[a7] = Sheet2.Cells(Sheet3.[a1], 2)
Sheet1.Range("a7").Font.ColorIndex = 1
Sleep 500
Sheet1.Range("a7").Font.ColorIndex = 2
Sleep 500
Sheet1.Range("a7").Font.ColorIndex = 1
Next
For i = 1 To 3
Application.Speech.Speak Sheet2.Cells(Sheet3.[a1], 1)
Sleep 1000
Next
End Sub

复制代码

http://zhidao.baidu.com/question/68811815.html
要先创建对象。
Sub SpeakThis()

Dim strMessage As String
Dim speaker As New Application

strMessage = "hi!"
speaker.Speech.Speak (strMessage)

End Sub

如果没安装texttospeech组件，excel会提示你安装。

http://download.csdn.net/download/bigbirdlee/3817064

http://ishare.iask.sina.com.cn/download/explain.php?fileid=8569099

KPT.zip (27.85 KB, 下载次数: 29)

黄牛解毒丸 · 发表于 2013-3-11 16:13

超越了我对excel的认识，太抢眼了

难1得糊涂 · 发表于 2013-9-27 22:39

太慢了点！要是带搜索功能就更完美了

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