以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  语音播放  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149291)
--  作者：study51study
--  发布时间：2020/4/28 11:06:00
--  语音播放
想请教一下：DotNetSpeech.SpVoice()
这个只能播放文本文件吗？可以播放word文件不，怎么弄？谢谢！！！！图片点击可在新窗口打开查看
--  作者：study51study
--  发布时间：2020/4/28 11:07:00
--  
文本文件我已经播放起了，但是选择word文件就播放不起，谢谢老师赐教！！！！
--  作者：有点蓝
--  发布时间：2020/4/28 11:20:00
--  
使用vba获取word的内容，然后处理

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\\test.doc")
    For Each k As object In doc.Paragraphs
        msgbox(k.Range.text) ‘这里改为朗读即可
    Next
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.quit
End try