Как исправить проблему c распознавании текста в речь?

Question

[Agrael313 Zashefrovano]

Здравствуйте, подскажите как исправить эту проблему пишет: "Класс не зарегистрирован"
В скрипте было написано: CreateObject("SPEECH.SpVoice")
Я понимаю что класс не зарегестрирован , заходил в распознавание речи > Там не было Русского языка для распознавания текста в речь.
Я устанавливал с интернета TTS, компьютер его принял , но даже после перезагрузки его не отобразил в распознавании речи

Comments

[wisgest]

Я понимаю что класс не зарегестрирован , заходил в распознавание речи > Там не было Русского языка для распознавания текста в речь.

При чём здесь это? Просто не установлена соответствующая библиотеке.
В частности, хоть что-нибудь должно быть в реестре по пути HKCR\SPEECH.SpVoice

Попробуйте SAPI.SpVoice вместо SPEECH.SpVoice.

Я устанавливал с интернета TTS

Что это такое?

[Agrael313 Zashefrovano]

wisgest, Я конечно знаю, что есть SAPI.SpVoice, но распозвания текста в речь происходит на английском языке, а мне нужен русский

Answer 1

[h8nor]

"SPEECH.SpVoice" - скорее всего SAPI4. Танцы с бубнами для Win7 не помогли запустить SpeechPlatformRuntime. Рабочий вариант для SAPI5 - поставить один из готовых пакетов RHVoice https://tiflohelp.ru/synthesizers/sapi-5/rhvoice-s...
Можно проверить, какие голоса установлены программой https://aloys.narod.ru/sof/1/demagog.htm#2 или макросом https://www.cyberforum.ru/vbscript-wsh/thread22813...

Option Explicit
' https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ms723609(v=vs.85)

Const SAFT48kHz16BitStereo = 39
' Creates file even if file exists and so destroys or overwrites the existing file
Const SSFMCreateForWrite = 3

Dim oFileStream, oVoice
Dim message, mobilegaming
Dim MessageBox, Title, Default

MessageBox = "Enter your Text" ' Set prompt.
Title = "Text to Speech" ' Set title.

Default = "Привет, комрад! Как твои дела?" ' Codepage source - ANSI: CP1251
message = InputBox(MessageBox, Title, Default, 100, 100)

Set mobilegaming = CreateObject("SAPI.SpVoice")
mobilegaming.Speak message


Set oFileStream = CreateObject("SAPI.SpFileStream") ' Save Steam
oFileStream.Format.Type = SAFT48kHz16BitStereo
oFileStream.Open "C:\Users\User\Desktop\Output.mp3", SSFMCreateForWrite

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

oFileStream.Close