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

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

Hi Thomas,

Thomas wrote:
> 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.


Du brauchst dafür kein Control.
SAPI sollte auf XP vorhanden sein, auf Vista sowieso.
Und dann reicht eine einzige Zeile:

CreateObject("SAPI.SPVoice").Speak "This tip is sent to you by Sascha
Trowitzsch"

Du kannst für ausgefeiltere Sachen aber auch einen Verweis auf die
"Microsoft Speech Object Library" setzen.

Ciao, Sascha

<schnipp>

> Du brauchst dafür kein Control.
> SAPI sollte auf XP vorhanden sein, auf Vista sowieso.
> Und dann reicht eine einzige Zeile:
>
> CreateObject("SAPI.SPVoice").Speak "This tip is sent to you by Sascha
> Trowitzsch"

Is ja geil; - was es alles gibt.

gruss ekkehard