используйте ffmpeg в vba для изменения формата видео
адача
Возможно использовать речь в приложениях Office. Моя цель - сохранить речь MS SAPI в файл определенного типа. AFAIK мой пример кода сохраняет в файл WAV.
проблема
Я не знаю, возможно ли определить только желаемое расширение типа файла или необходимо выполнить некоторые дополнительные настройки. Я не нашел подходящего решения с помощью VBA.
Вопрос Есть ли пример кода, как точно определить требуемый тип файла, например, MP3, сохранить данный текст в этот тип файла, используя необходимые настройки (AudioStream)?
Код
В этом примере кода я называю выходной файл напрямую как WAV с полной неопределенностью, если это будет файл WAV.
Я использовал позднюю привязку и добавил комментарий к ранней привязке.
Private Sub Speech2WAV()
' Purpose: save text Voice object to file
' Idea: cf. .Net Article with some adaptions http://www.codeguru.com/vb/gen/vb_misc/samples/article.php/c13893/Text-to-Speech-Using-Windows-SAPI.htm
' Declare variables
Dim s As String
s = "Could you give me a code example to save this text to a defined file type?"
'' ----------------------------------------------
'' Early Binding - reference do MS Speech Object Lib (SAPI.dll) needed
'' ----------------------------------------------
' Dim oVoice As New SpeechLib.SpVoice
' Dim cpFileStream As New SpeechLib.SpFileStream
'' ----------------------------------------------
' ----------------------------------------------
' Late Binding
' ----------------------------------------------
Dim oVoice As Object
Dim cpFileStream As Object
Set oVoice = CreateObject("SAPI.SpVoice")
Set cpFileStream = CreateObject("SAPI.SpFileStream")
' ----------------------------------------------
10 cpFileStream.Open ThisWorkbook.Path & "\test.wav", _
SpeechLib.SpeechStreamFileMode.SSFMCreateForWrite, False
20 Set oVoice.AudioOutputStream = cpFileStream
30 Set oVoice.Voice = oVoice.GetVoices.Item(0)
40 oVoice.Volume = 100
50 oVoice.Speak s, _
SpeechLib.SpeechVoiceSpeakFlags.SVSFDefault
55 oVoice.Rate = 1 ' speed
56 oVoice.Volume = 100 ' volume
60 Set oVoice = Nothing
70 cpFileStream.Close
80 Set cpFileStream = Nothing
Exit Sub
OOPS: ' Error Handler
MsgBox "ERL=" & Erl & "|ErrNo=" & Err.Number & "|" & Err.Description, vbExclamation, "Error in Speec2WAV"
End Sub
Запись
Спасибо @ashleedawgкомментарий Я могу порекомендовать следующие ссылки на MS Speech API: