Wie sollten Sie auf Text -to-Speech für Word 2007 drehen

Mitglieder-Login

InformationenTextverarbeitung Software

Wie Copy & Paste in Google Document… Google Docs die Macht des Web bringt das Textverarbeitungs- Genre. Im Gegensatz zu normalen Textvera
Wie WPS in ein Word- Dokument zu ko… In diesen Tagen ist Microsoft Word häufiger als Microsoft Works verwendet , aber das ändert nichts a
Wie Free Borders Stellen Eine Grenze kann zu würzen einem einfachen Dokument oder zu den primären Zweck, die Seite zu betonen
Wie wird die Anzahl der Wörter, di… OpenOffice ist ein Freeware- Suite von Office- Anwendungen . Es hat viele der gleichen Fähigkeiten w

Software

HOME

* Computer Wissen >> Software >> Textverarbeitung Software >> .

Wie sollten Sie auf Text -to-Speech für Word 2007 drehen

Beginnend mit Microsoft Windows 2000, Microsoft Dienstprogramme haben Kern hatte die Fähigkeit, geschriebene Text vorgelesen . Diese Fähigkeit , die so genannte "Text To Speech " wird nicht in Word 2007 enthalten. Wenn Sie Microsoft Speech Object Library auf dem Computer installiert haben, können Sie jedoch wieder aktivieren Speech-Funktion mit einem speziellen Makro-Code . Things You
Microsoft Speech Object Library
brauchen anzeigen Weitere Anweisungen
Speech Referenz
1

Starten Sie den Microsoft Visual Basic-Editor in Word mit der Tastenkombination Alt + F11 Tasten . Klicken Sie auf das Menü "Extras" und wählen Sie dann " Referenzen . " Auf der Liste der Aufschrift " Verfügbare Verweise " blättern, bis "Microsoft Speech Object Library " ausgewählt ist. Klicken Sie auf das Kontrollkästchen neben der Anzeige . Klicken Sie auf " OK".
2

Fügen Sie ein neues Modul , indem Sie auf "Neues Modul " auf der Microsoft Visual Basic-Editor. Wählen Sie das Feld "Name" und geben Sie " TextToSpeech . " In der " Makro "-Befehl an , fügen Sie den folgenden Code: Dim

Rede als SpVoice

Sub SpeakText ()

On Error Resume Next

Set Rede = New SpVoice

Wenn Len ( Selection.Text )> 1 Then ' sprechen selection

speech.Speak Selection.Text , _

SVSFlagsAsync + SVSFPurgeBeforeSpeak

Else ' sprechen gesamte Dokument

speech.Speak ActiveDocument.Range (0, ActiveDocument.Characters.Count ) . Text , _

SVSFlagsAsync + SVSFPurgeBeforeSpeak

End If

Haben

DoEvents

Loop Until speech.WaitUntilDone ( 10)

Set Rede = Nothing End Sub

< p> Sub StopSpeaking ()

'Basierend auf einem Makro von Mathew Heikkila

' verwendet, um alle laufenden Sprache in Text

on Error Resume Next unterbrechen
< p > speech.Speak vbNullString , SVSFPurgeBeforeSpeak

Set Rede = Nothing End Sub

der rechten Maustaste auf die Symbolleiste Word 2007 . Von der Liste , wählen Sie " Symbolleiste für den Schnellzugriff anpassen . " Klicken Sie auf " Hinzufügen Macro" und wählen Sie die neu erstellte " TextToSpeech " Makro. Klicken Sie auf " Hinzufügen" und dann auf " OK". Diese Schaltfläche in der Symbolleiste wird nun wiederum Text to Speech -und Ausschalten nach Bedarf.