'speech
Private V As SpeechLib.SpVoice
Private T As SpeechLib.ISpeechObjectToken
 
Private Sub Command_Click()
 
    Dim ObjTextToSpeech As Object
    Dim sItem As String
    Dim sa As String
    Dim lb As Long
 
    'text
    sa = "Man dient seinem Planet, bedingt seinem Land, nicht einer Fahne und" & _
      "nie einem Glauben."
    lb = -4 'vorlesegeschwindigkeit von -10 bis +10, 0=standard
 
    If lstStimme.ListIndex > -1 Then
        Set V.Voice = V.GetVoices().Item(lstStimme.ListIndex)
    End If
 
    V.Rate = lb   'geschwindigkeit
    V.Speak sa, SVSFlagsAsync 'sprechen
 
End Sub
 
Private Sub Form_Load()
 
    Dim strVoice As String
 
    Me.Show
    'vorhandene stimmen auslesen und in liste einfügen
    Set V = New SpVoice
    For Each T In V.GetVoices
        strVoice = T.GetDescription     'The token's name
        lstStimme.AddItem strVoice          'Add to listbox
    Next
 
End Sub

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!

  Dim TextSpeech As Object
 
  Set TextSpeech = CreateObject("SAPI.SpVoice")
  Set TextSpeech.Voice = _
    TextSpeech.GetVoices("Name=ScanSoft Steffi_Dri40_16kHz").Item(0)

Gruss,

Zardoz

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!

Option Explicit
 
Private V As SpeechLib.SpVoice
Private T As SpeechLib.ISpeechObjectToken
 
Private Sub Form_Load()
    Dim strVoice As String
    'Vorhandene Stimmen auslesen und in Listbox einfügen
    Set V = New SpVoice
    For Each T In V.GetVoices
        strVoice = T.GetDescription             'Name der Stimme lesen
        Listbox_Stimmen.AddItem strVoice        'zu Listbox hinzufügen
    Next
    Listbox_Stimmen.ListIndex = 0               'Erste Stimme in Listbox als 
    ' ausgewählt markieren
End Sub
 
Private Sub cmd_Exit_Click()
    Dim ObjTextToSpeech As Object
    Dim Lautstaerke As Long
    Dim Text As String
 
    'Text und Geschwindigkeit festlegen
    Lautstaerke = -4                                     _
      'Vorlesegeschwindigkeit von -10 bis +10, 0=Standard
    Text = Listbox_Stimmen.Text
 
    'Sprechen
    Set V.voice = V.GetVoices().Item(Listbox_Stimmen.ListIndex)
    V.Rate = Lautstaerke
    V.Speak Text, SVSFlagsAsync
 
    'Stimmauswahl-Fenster verlassen
    form_Hauptmenue.Visible = True
    Unload Me
End Sub

Option Explicit
 
Public Sub sprachausgabe(Text As String)
    Dim voice As Variant
 
    'Sprachausgabe
    Set voice = CreateObject("SAPI.SpVoice")
    voice.Rate = -5                     'Lesegeschwindigkeit
    voice.Volume = 100                  'Leselautstärke
    DoEvents
    voice.Speak Text, 0                 'Vorlesen
End Sub

sprachausgabe (String-Variable)

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!

Dim ObjTextToSpeech As Object

Sub RegistryLesen()
 
    'stimme
    pubSprecherStimme = GetSetting(App.Title, "Options", "SprecherStimme", _
      "Name=Mirosoft Anna")
    pubiSprecherTempo = Val(GetSetting(App.Title, "Options", "SprecherTempo", _
    "0"))
 
End Sub

Private Sub cmdLesen_Click(Index As Integer)
 
    Dim sa As String
    Dim ObjTextToSpeech As Object
 
    Set ObjTextToSpeech = CreateObject("SAPI.spVoice")
    Set ObjTextToSpeech.voice = ObjTextToSpeech.GetVoices( _
      pubSprecherStimme).Item(0)
    ObjTextToSpeech.Rate = pubiSprecherTempo
 
    sa = "Für die Entwicklung des modernen Rechtsstaats, war nicht der Einfluss" & _
      "des Christentums entscheidend, sondern die Befreiung von ihm."
 
    Me.MousePointer = 11
    ObjTextToSpeech.speak sa
    Me.MousePointer = 0
 
End Sub

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!

Dim ObjTextToSpeech As Object
 
Private Sub cmd_Lesen_Click()
    Dim sa As String
    Dim ObjTextToSpeech As Object
 
    Set ObjTextToSpeech = CreateObject("SAPI.spVoice")
    Set ObjTextToSpeech.voice = ObjTextToSpeech.GetVoices( _
      pubSprecherStimme).Item(0)
    ObjTextToSpeech.Rate = pubiSprecherTempo
 
    sa = "Hallo"
 
    Me.MousePointer = 11
    ObjTextToSpeech.speak sa
    Me.MousePointer = 0
End Sub
 
Private Sub Form_Load()
    RegistryLesen
End Sub
 
Sub RegistryLesen()
 
    'stimme
    pubSprecherStimme = GetSetting(App.Title, "Options", "SprecherStimme", _
      "Name=Mirosoft Anna")
    pubiSprecherTempo = Val(GetSetting(App.Title, "Options", "SprecherTempo", _
    "0"))
 
End Sub

Option Explicit
 
Public pubSprecherStimme As String
Public pubiSprecherTempo As Integer

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!