Avviare il Microsoft Visual Basic Editor da Word premendo Alt + F11 . Fai clic sul menu "Strumenti" e poi selezionare "Riferimenti ". Sulla lista contrassegnata " Riferimenti disponibili, " scorrere fino a selezionare " libreria Microsoft Speech Object" . Fare clic sulla casella di controllo accanto a questo elenco. Fare clic su " OK ".
2
Aggiungi un nuovo modulo facendo clic su " Crea un nuovo modulo" a la Microsoft Visual Basic Editor . Selezionare il campo "Nome" e inserire " TextToSpeech . " Nella " Macro " zona di comando , incollare il seguente codice: Dim
discorso come SpVoice
Sub SpeakText ( ) per
On Error Resume Next
discorso = New SpVoice
If Len ( Selection.Text ) > 1 Then ' parlare selezione
speech.Speak Selection.Text , _
SVSFlagsAsync + Commercio SVSFPurgeBeforeSpeak
Else ' parlare intero documento
speech.Speak ActiveDocument.Range ( 0 , ActiveDocument.Characters.Count ) . Text , _
SVSFlagsAsync + SVSFPurgeBeforeSpeak
End If
fare
DoEvents
loop Until speech.WaitUntilDone ( 10 ) per
discorso = Nothing End
Sub
StopSpeaking Sub ( ) per
' sulla base di una macro da Mathew Heikkila
' utilizzato per interrompere qualsiasi discorso in esecuzione al testo
on Error Resume Next
speech.Speak vbNullString , SVSFPurgeBeforeSpeak
discorso = Nothing End Sub
3
pulsante destro del mouse sulla barra degli strumenti di Word 2007 . Dalla lista , selezionare " Personalizza barra di accesso rapido. " Fare clic su " Aggiungi Macro " e scegliere la macro appena creata " TextToSpeech " . Fare clic su " Aggiungi " e poi " OK ". Questa barra degli strumenti si accenderà text to speech e disattivare , se necessario.
software © www.354353.com