语音朗读(VBA)

适当调用OFFICE各成员间的功能为WORD所用,取长补短.WORD中有语音录入功能,而 EXCEL 中有语音朗读功能,互为弥补,可至大全.(如要中止,可按下 CTRL+BREAK)

Sub SpeakText() Dim Sp As Excel.Application Set Sp = New Excel.Application Sp.Speech.Speak ActiveDocument.Content Set Sp = Nothing End Sub '---------------------- Private Sub Document_Open() On Error Resume Next '以下引用EXCEL.EXE ActiveDocument.VBProject.References.AddFromFile _ "C:/Program Files/Microsoft Office/Office" & Mid(Application.Version, 1, 2) & "/Excel.exe" SpeakText End Sub