VBA объект SpeakXML True - PullRequest
       23

VBA объект SpeakXML True

0 голосов
/ 01 октября 2019

Я пытаюсь сделать макрос Excel, чтобы он произносил значение в определенных ячейках и записывал его в файл wav.

Я изо всех сил стараюсь установить для SpeakXML значение true, чтобы я мог добавить длинные паузы между определеннымислова.

Set oFileStream = CreateObject("SAPI.SpFileStream")
oFileStream.Format.Type = SAFT48kHz16BitStereo

fileRouteName = "C:\Users\xxx\Desktop\test\" & "TESTfile" & ".wav"
oFileStream.Open fileRouteName, SSFMCreateForWrite

SayThis = Cells(1, 1).Value

Set oVoice = CreateObject("SAPI.SpVoice")
Set oVoice.AudioOutputStream = oFileStream

oVoice.Speak SayThis

oFileStream.Close

В ячейке (1,1) написан текст: дождитесь долгой паузы это конец

...