语音提醒

baomaboy

EXCEL771220 发表于 2011-9-15 21:05
太牛了！如何把这个用到普遍的表格中呢？

我那个本来不是特殊表格就是普通表格
你只要在表格模块中写入一句：

1. Public Declare Function YYTX Lib "LLKJ.DLL" (Optional YYInput As Variant, Optional op = 0) As Boolean

复制代码

然后甚至可以把他当自定义函数来插入单元格，你在任意单元格输入

1. =YYTX("i love you")

复制代码

就能“听到”效果了。

刘志文

下载学习中！！

风云际会6

还是不行啊,版主,不过我自己搞了一个,但不知如何提高语音朗读速度如，朗读速度太慢，在控制面板调快语速也没用，字符间的间隔很长。
如何提高语音朗读速度？
http://club.excelhome.net/thread-764694-1-1.html

baomaboy

风云际会6 发表于 2011-9-16 13:17
还是不行啊,版主,不过我自己搞了一个,但不知如何提高语音朗读速度如，朗读速度太慢，在控制面板调快语速也没 ...

不好意思，在我这运行出错，所以无法测试，开始以为是我的excel安装时没装文本到语音造成的，后来看出错代码行有和那个无关，比较奇怪。

风云际会6

baomaboy 发表于 2011-9-16 21:36
不好意思，在我这运行出错，所以无法测试，开始以为是我的excel安装时没装文本到语音造成的，后来看出错代 ...

如果你那行有错,就不要减1,把"- 1"不,因为你把活动单元格放在了A1单元格
改为:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)           '如果单元格在选定状态下按方向键，或者用鼠标改变活动单元格触发
Dim length     As Integer
Dim i     As Integer
Dim strT     As String
Dim ch     As String
Dim intR     As Integer, intC       As Integer
Set d = CreateObject("Scripting.Dictionary")
intR = ActiveCell.Row
intC = ActiveCell.Column
If intR > 0 Then
strT = Cells(intR, intC)
        length = Len(strT)
        If length > 0 Then
                For i = 1 To length
                        ch = Mid(strT, i, 1)
                        
                        Application.Speech.Speak Mid(strT, i, 1)
                Next i
        End If
End If

End Sub

baomaboy

风云际会6 发表于 2011-9-16 21:43
如果你那行有错,就不要减1,把"- 1"不,因为你把活动单元格放在了A1单元格
改为:
Private Sub Worksheet_ ...

不放在a1的话，激活文字的单元格无声音，激活空白单元格就轮到这句出错了
"Application.Speech.Speak ch"
我想我的默认安装没有文本到语音这个功能，抱歉没法帮你测试了。

高绪山

你好！
怎么在同一个，目录下有llkj.dll 文件，怎么提示找不到“llkj.dll”? 谢谢！

baomaboy

高绪山 发表于 2011-9-17 10:59
你好！
怎么在同一个，目录下有llkj.dll 文件，怎么提示找不到“llkj.dll”? 谢谢！

看来产生路径问题的原因很多啊：
又更新了一下在试试，另外请说下你的操作系统版本，xp or win7 ，excel是 2003 还是2010？

还有就是 是工薄打开就提示找不到还是点击按钮后找不到。

高绪山

windows xp sp3 & office 2003 sp3 。 在执行YYTX时出现.
不过，我将llkj.dll 文件 copy to windows\system32\中，没有出现错误。
不知是什么原因？

baomaboy

高绪山 发表于 2011-9-17 11:28
windows xp sp3 & office 2003 sp3 。 在执行YYTX时出现.
不过，我将llkj.dll 文件 copy to windows\syste ...

运行环境是一样的，我刚刚自己又测试一边可以运行，
按你的说法应还是工作簿打开是没复制dll文件到系统目录的过程没完成：
你是全部解压出来才运行的还是在压缩包内直接运行的？