語音朗讀(VBA)

適當調用OFFICE各成員間的功能為WORD所用,取長補短.WORD中有語音錄入功能,而 EXCEL 中有語音朗讀功能,互為彌補,可至大全.(如要中止,可按下 CTRL+BREAK)

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