Speak with female voice - VBA text to speech code

[kelly mort]

Hi there,


I want the voice recorded in a female voice. Can someone fix this for me?

I found this on Wikipedia

Thanks

Sub TestStringToWavFile()
    Dim sP$, sFN$, sStr$, sFP$
    sP = ThisWorkbook.Path & "\work\"
    sFN = "Mytest.mp3"
    sFP = sP & sFN
    sStr = "I want you to speak with a female voice"
    StringToWavFile sStr, sFP
End Sub


Function StringToWavFile(sIn$, sPath$) As Boolean
    Dim fs As New SpFileStream
    Dim Voice As New SpVoice
    fs.Format.Type = SAFT22kHz16BitMono
    fs.Open sPath, SSFMCreateForWrite, False
    Set Voice.AudioOutputStream = fs
    Voice.Speak sIn, SVSFDefault
    fs.Close
    Voice.WaitUntilDone (6000)
    Set fs = Nothing
    Set Voice.AudioOutputStream = Nothing
    StringToWavFile = True
End Function

 

[Dossfm0q]

Sorry I Came Here to find Google Translate Play Sound and Found This If you Have Please Help

below Your request:
'Set Voice.Voice = Voice.GetVoices.Item(0) '0 Male
Set Voice.Voice = Voice.GetVoices.Item(1) '1 Female

Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub TestStringToWavFile()

    Dim sP$, sFN$, sStr$, sFP$
    sP = ThisWorkbook.Path & "\"
    sFN = "Mytest.mp3"
    sFP = sP & sFN
    sStr = "I want you to speak with a female voice"
    StringToWavFile sStr, sFP
End Sub

Function StringToWavFile(sIn$, sPath$) As Boolean

    Dim fs As New SpFileStream
    Dim Voice As New SpVoice
     'Set Voice.Voice = Voice.GetVoices.Item(0) '0 Male
     Set Voice.Voice = Voice.GetVoices.Item(1) '1 Female
    fs.Format.Type = SAFT22kHz16BitMono
    fs.Open sPath, SSFMCreateForWrite, False
    Set Voice.AudioOutputStream = fs
    Voice.Speak sIn, SVSFDefault
    fs.Close
    Voice.WaitUntilDone (6000)
    Set fs = Nothing
    Set Voice.AudioOutputStream = Nothing
    StringToWavFile = True
    
    PlayWavFile sPath$, False ' Play
    
End Function
Sub PlayWavFile(WavFileName As String, Wait As Boolean)

    If Dir(WavFileName) = "" Then Exit Sub ' no file to play
    If Wait Then ' play sound before running any more code
        sndPlaySound WavFileName, 0
    Else ' play sound while code is running
        sndPlaySound WavFileName, 1
    End If
End Sub