lancio di Microsoft Word 2007 , scegliere " Developer " e poi selezionare " Visual Basic " dalla barra multifunzione.
2
Scegli "Strumenti ", fare clic su "Macro ... ", quindi selezionare "Normale" dalla casella di riepilogo denominata Digitare un nome di macro " macro in . " - per esempio , " TTS " - e quindi fare clic sul pulsante "Crea"
3
Copia il codice qui sotto evidenziandolo e premendo " Ctrl - C " :
discorso ExplicitDim Opzione . come SpVoiceDim i come numero intero
Sub SpeakText ( ) On Error Resume NEXTIF i = 0 ThenSet discorso = New SpVoiceIf Len ( Selection.Text ) > 1 Then ' parlare selectionspeech.Speak Selection.Text , _SVSFlagsAsync + SVSFPurgeBeforeSpeakElse ' parlare intero documentspeech.Speak ActiveDocument.Range ( 0 , _ActiveDocument.Characters.Count ) . Text , _SVSFlagsAsync + SVSFPurgeBeforeSpeakEnd IfElseIf i = 1 Thenspeech.Resumei = 0End IfEnd IfEnd Sub
software © www.354353.com