Access朗读任意文本/使Access真人发声

Option Compare Database
Dim xl As Object

Private Sub Command0_Click()
'需要引用excel object
xl.Speech.Speak (文本0.Value)
End Sub

Private Sub Form_Open(Cancel As Integer)
Set xl = New Excel.Application

End Sub

Private Sub 文本0_KeyDown(KeyCode As Integer, Shift As Integer)
xl.Speech.Speak (Chr(KeyCode))

End Sub