Text To Speech

31/10/2009 - 13:48 von Thomas | Report spam
Hallo NG,

ich bitte um Hilfe bei folgender Frage :

Um die Kontrolle eingegebener Daten zu vereinfachen, möchte ich mir
die Daten vorlesen lassen. Dies sollte eigentlich kein Problem sein,
trotzdem kriege ich das Ding nicht zum Laufen.

Ich habe ein TextToSpech Class Control "TextToSpeech0"

Option Compare Database
Option Explicit

Dim tts As HTTSLib.TextToSpeech


Private Sub Form_Load()
Dim n

Set tts = Me.TextToSpeech0.Object

Debug.Print tts.CountEngines 'ok
Debug.Print tts.Device 'ok
Debug.Print tts.Speaker(1) 'ok

tts.Speak ("HalloWelt") 'Die Methode 'speak' für das Objekt
"ITextToSpeach" ist fehlgeschlagen. 80004005
tts.Speak "HalloWelt" 'Die Methode 'speak' für das Objekt
"ITextToSpeach" ist fehlgeschlagen. 80004005

n = "Hallo Welt"

tts.Speak n 'Die Methode 'speak' für das Objekt
"ITextToSpeach" ist fehlgeschlagen. 80004005
tts.Speak (n) 'Die Methode 'speak' für das Objekt
"ITextToSpeach" ist fehlgeschlagen. 80004005

tts.StopSpeaking 'Die Methode 'StopSpeaking' für das Objekt
"ITextToSpeach" ist fehlgeschlagen. 80004005

End Sub
...

Besonders irritiert mich, dass das Objekt ITextToSpeach heißt.

Konfiguration XP, Office 2003. Vielen Dank schon jetzt.

Gruß aus Hamburg. Thomas
 

Lesen sie die antworten

#1 Thomas Möller
02/11/2009 - 20:46 | Warnen spam
Hallo Thomas,

Thomas schrieb:
Um die Kontrolle eingegebener Daten zu vereinfachen, möchte ich mir
die Daten vorlesen lassen. Dies sollte eigentlich kein Problem sein,
trotzdem kriege ich das Ding nicht zum Laufen.

Ich habe ein TextToSpech Class Control "TextToSpeech0"

Option Compare Database
Option Explicit

Dim tts As HTTSLib.TextToSpeech
.

Private Sub Form_Load()
Dim n

Set tts = Me.TextToSpeech0.Object

Debug.Print tts.CountEngines 'ok
Debug.Print tts.Device 'ok
Debug.Print tts.Speaker(1) 'ok

tts.Speak ("HalloWelt") 'Die Methode 'speak' für das Objekt
"ITextToSpeach" ist fehlgeschlagen. 80004005
tts.Speak "HalloWelt" 'Die Methode 'speak' für das Objekt
"ITextToSpeach" ist fehlgeschlagen. 80004005

n = "Hallo Welt"

tts.Speak n 'Die Methode 'speak' für das Objekt
"ITextToSpeach" ist fehlgeschlagen. 80004005
tts.Speak (n) 'Die Methode 'speak' für das Objekt
"ITextToSpeach" ist fehlgeschlagen. 80004005

tts.StopSpeaking 'Die Methode 'StopSpeaking' für das Objekt
"ITextToSpeach" ist fehlgeschlagen. 80004005

End Sub


Besonders irritiert mich, dass das Objekt ITextToSpeach heißt.



bist Du sicher, dass das Control richtig installiert ist.
Ändert sich etwas, wenn Du das Tool deinstallierst und dann noch einmal
installierst?

Da sich hier scheinbar niemand mit diesem Control auskennt würde ich Dir
an dieser Stelle den Support des Herstellers für weitere Fragen empfehlen.

CU
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen