Beginnend met Microsoft Windows 2000 , hebben kern Microsoft hulpprogramma's de mogelijkheid om geschreven tekst hardop had . Deze mogelijkheid , genaamd " tekst naar spraak , " is niet opgenomen in Word 2007 . Als u Microsoft Speech Object Library hebt geïnstalleerd op de computer , kunt u echter opnieuw inschakelen van de spraak kan omzetten met behulp van een speciale macro code . Wat je nodig hebt
Microsoft Speech Object Library
Toon Meer Aanwijzingen
Speech Referentie
1 Start de Microsoft Visual Basic Editor vanuit Word door op Alt + F11 toetsen . Klik op het menu "Extra " en kies vervolgens " Referenties . " Op de lijst gemarkeerd " Beschikbare verwijzingen " te bladeren tot " Microsoft Speech Object Library " wordt geselecteerd . Klik op het selectievakje naast deze aanbieding . Klik op "OK . " Kopen van 2 Voeg een nieuwe module door te klikken op " Maak een nieuwe module " op de Microsoft Visual Basic Editor . Selecteer het veld "Naam " en voer " TextToSpeech . " In de " Macro " commando gebied , plak de volgende code : Dim speech
als SpVoice
Sub SpeakText ( ) op On Error Resume Next Set
spraak = Nieuwe SpVoice
Als Len ( Selection.Text ) > 1 Then ' spreken selectie speech.Speak Selection.Text
, _ SVSFlagsAsync
+ SVSFPurgeBeforeSpeak
Else ' spreek hele document
speech.Speak ActiveDocument.Range ( 0 , ActiveDocument.Characters.Count ) . tekst , _ SVSFlagsAsync
+ SVSFPurgeBeforeSpeak End
Als
Do DoEvents
Loop
Tot speech.WaitUntilDone ( 10 ) Set toespraak
= Nothing
End Sub
Sub StopSpeaking ( ) op ' op basis van een macro van Mathew Heikkila
' gebruikt om een lopende spraak naar tekst
onderbreken on Error Resume Next
speech.Speak vbNullString , SVSFPurgeBeforeSpeak
Set toespraak = Nothing End Sub
3 klik met de rechtermuisknop
op de werkbalk Word 2007 . Uit de lijst , selecteert u ' Werkbalk Snelle toegang aanpassen . " Klik op "Add Macro " en kies de nieuw opgerichte " TextToSpeech " macro . Klik op "Add " en dan op "OK . " Deze werkbalk knop zal nu teksten om te zetten naar spraak aan en uit als dat nodig is.
|
