Question

我可以将英文文本翻译成德文，但是我无法用德语说德语文本。 TTS的声音没有正确地发音德语单词。谷歌翻译有正确的发音，但我不知道如何从Visual Basic调用。

Answer 1

下载德语TTS版本here

它应该有用。

编辑：以下是检查您拥有的可用语音的方法：（代码来自here，我已经进行了后期绑定，因此无需添加库即可运行）

Option Explicit


    Sub AvailableVoices()

        Dim i           As Long
        Dim voc         As Object

        Set voc = CreateObject("SAPI.SpVoice")

        Debug.Print voc.GetVoices.Count & " available voices:"

        For i = 0 To voc.GetVoices.Count - 1
            Set voc.Voice = voc.GetVoices.Item(i)
            Debug.Print " " & i & " - " & voc.Voice.GetDescription
            voc.Speak "test audio"
        Next i

    End Sub

需要VBA到德语文本到语音

1 个答案: