Text zu Sprache in MS Word 2007
Nachfolgend finden Sie die Makros zum Aktivieren von TTS. Diese Makros sollten in "normal.dot" abgelegt werden, damit sie zusammen mit der MS-Wortanwendung geladen werden.
Drücken Sie Alt + F11, um zum Makro-Editor zu gelangen, und fügen Sie diesen Code ein. Sie müssen der Schnellzugriffsleiste drei Schaltflächen hinzufügen. Klicken Sie in der Titelleiste von MS word auf den kleinen Abwärtspfeil mit der Aufschrift "Schnellzugriff-Symbolleiste anpassen", in dem Sie Schaltflächen zum Speichern, Rückgängigmachen und Wiederherstellen finden. Wählen Sie "Weitere Befehle" im Dropdown-Menü, um das Fenster "Word-Optionen" zu öffnen. Wählen Sie im linken Menü „Anpassen“ und „Befehle auswählen von“ sollte auf „Makros“ eingestellt sein. Fügen Sie alle drei Makros hinzu. Dadurch werden drei Schaltflächen in der Symbolleiste für den Schnellzugriff erstellt. Jetzt ist Ihr MS-Wort TTS-fähig.
Option Explicit Dim speech As SpVoice Dim i As Integer Sub SpeakText() On Error Resume Next If i = 0 Then Set speech = New SpVoice If Len(Selection.Text) > 1 Then 'speak selection speech.Speak Selection.Text, _ SVSFlagsAsync + SVSFPurgeBeforeSpeak Else 'speak whole document speech.Speak ActiveDocument.Range(0, _ ActiveDocument.Characters.Count).Text, _ SVSFlagsAsync + SVSFPurgeBeforeSpeak End If Else If i = 1 Then speech.Resume i = 0 End If End If End Sub Sub StopSpeaking() On Error Resume Next speech.Speak vbNullString, SVSFPurgeBeforeSpeak Set speech = Nothing i = 0 End Sub Sub PauseSpeaking() On Error Resume Next If i = 0 Then speech.pause i = 1 Else If i = 1 Then speech.Resume i = 0 End If End If End Sub
Quelle