[分享]语音朗读

守柔 · 发表于 2004-8-31 16:49

hPe2TNX8.rar (7.25 KB, 下载次数: 255)

各位网友，大家好！

明天小朋友们就要开学了，如果用WORD编排好一个课程，又能朗读，于识字与听音相结合，是一件非常不错的事情。

守柔在此预祝小朋友们好好学习，天天向上！

这是调用EXCEL的语言朗读功能进行工作的请启用你的宏打开你的音箱听一听，看一看，学一学。

有想法就要付诸行动，LET's go!

Sub SpeakText() Dim AppExcel As Excel.Application, Wb As Excel.Workbook, i As Paragraph, n As Integer Dim c As Excel.Range On Error Resume Next If Tasks.Exists("Microsotf Excel") = True Then Set AppExcel = GetObject(, "Excel.Application") Else Set AppExcel = CreateObject("Excel.Application") End If AppExcel.Visible = False Set Wb = AppExcel.Workbooks.Add For Each i In Me.Paragraphs n = n + 1 Wb.Sheets(1).Cells(n, 1) = i.Range Next For Each c In Wb.Sheets(1).Range("A1:A" & n) c.Speak Next Wb.Close False AppExcel.Quit Set AppExcel = Nothing End Sub

'----------------------------------------------------------------------------- Private Sub Document_Open() On Error Resume Next ActiveDocument.VBProject.References.AddFromFile "C:\Program Files\Microsoft Office\Office10\Excel.exe" SpeakText End Sub

fwww · 发表于 2004-8-31 23:45

i As Paragraph, 有问题，是怎么定义的？

homerzhang · 发表于 2004-9-1 11:39

在Word2003中没有通过。显示：用户定义类型未定义。

守柔 · 发表于 2004-9-1 12:04

ActiveDocument.VBProject.References.AddFromFile "C:\Program Files\Microsoft Office\Office10\Excel.exe" 将其中的offiice 10改为office 11（2003未接触过，应该是的吧）即可。

homerzhang · 发表于 2004-9-2 14:35

更改后，还是停在AppExcel As Excel.Application语句，显示：用户定义类型未定义。

守柔 · 发表于 2004-9-2 15:09

你直接在VBA编辑器中的工具引用中引用C:\Program Files\Microsoft Office\Office 11\Excel.exe试一下应该是此处的问题。

关键是你的版本号，是否为11，你可查看一下WORD /帮助/关于WORD。

或者将其修改为

Private Sub Document_Open() On Error Resume Next ActiveDocument.VBProject.References.AddFromFile "C:\Program Files\Microsoft Office\Office" & Mid(Application.Version, 1, 2) & "\Excel.exe" SpeakText End Sub

办公之星 · 发表于 2004-9-2 15:51

　　可以安装电脑播音员等软件。

　　以前简单用过，对多音字的处理差一点儿，整个读音也过于机械，估计孩子们不会喜欢的。

homerzhang · 发表于 2004-9-3 13:08

在资源管理器的地址或开始-运行-命令行输入C:\Program Files\Microsoft Office\Office11\Excel.exe，都可以启动Excel。但是，运行你的文件时就是停在第一句的AppExcel As Excel.Application语句，显示：用户定义类型未定义。

另外，Excel的语音朗读，只能朗读英文，对于中文，无能为力。真遗憾。

[此贴子已经被作者于2004-9-3 13:13:43编辑过]

办公之星 · 发表于 2004-9-3 15:49

另外，Excel的语音朗读，只能朗读英文，对于中文，无能为力。真遗憾。

　　这些功能，都属于边缘功能，不要过于追求。

　　记得说在控制面板上切换语言为中文时，可以朗读中文，但又读不了英文了。

sailorgg · 发表于 2004-9-3 19:59

我这边可以的，win98+officeXp

版主的学习探索精神是值得推崇的。

[此贴子已经被作者于2004-9-3 19:59:25编辑过]

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