Microsoft Speech Biblioteca de objetos
Ver Más instrucciones
voz de referencia
1
 Inicie el Editor de Microsoft Visual Basic en Word pulsando Alt + F11 . Haga clic en el menú " Herramientas " y seleccione "Referencias ". En la lista de marcado "Referencias disponibles ", desplácese hasta seleccionar " Biblioteca de objetos de Microsoft Speech " . Haga clic en la casilla de verificación junto a este listado . Haga clic en " Aceptar". 
 2 
 Añadir un nuevo módulo haciendo clic en " Crear un nuevo módulo" en el Editor de Microsoft Visual Basic . Seleccione el campo "Nombre " e introduzca " TextToSpeech . " En el área de comandos "Macro " , pegue el siguiente código: 
 
 discurso Dim como SpVoice 
 
 Sub SpeakText () 
 
 On Error Resume Next 
 
 Set discurso = New SpVoice 
 
 Si Len ( Selection.Text ) > 1 Entonces ' hablar selección 
 
 speech.Speak Selection.Text , _ 
 
 SVSFlagsAsync + SVSFPurgeBeforeSpeak 
 
 Else ' habla todo documento 
 
 speech.Speak ActiveDocument.Range ( 0 , ActiveDocument.Characters.Count ) . Texto, _ 
 
 SVSFlagsAsync + SVSFPurgeBeforeSpeak 
 
 End If 
 
 ¿ 
 
 
 
 DoEvents Loop Hasta speech.WaitUntilDone ( 10 ) 
 
 Set voz = Nothing End Sub 
 
 
 < p> StopSpeaking Sub ( ) 
 
 ' Basado en una macro de Mathew Heikkila 
 
 ' utilizado para interrumpir cualquier discurso corriendo al texto 
 
 On Error Resume Next 
 < p > speech.Speak vbNullString , SVSFPurgeBeforeSpeak 
 
 Set voz = Nothing End Sub 
 
 
 3 
 Haga clic derecho en la barra de herramientas de Word 2007. En la lista, seleccione " Personalizar barra de herramientas de acceso rápido. " Haga clic en " Añadir Macro" y selecciona la macro " TextToSpeech " de nueva creación. Haga clic en " Agregar " y luego " Aceptar". Esta barra de herramientas se ocupará ahora de texto a voz y desactivar según sea necesario. 
 
 
          
