Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Word 2007 , zvoliť " Developer " a potom vyberte " Visual Basic " z pásu kariet.
2
Vyberte " Nástroje " kliknite na " makrá ... , " a potom zvoľte " Normal " zo zoznamu označenom Zadajte názov makra " makrá sa . " - napríklad " TTS " - a potom kliknite na tlačidlo " Create "
3
skopírujte nižšie uvedený kód zvýraznením a stlačením klávesu " Ctrl - C " :
Možnosť ExplicitDim reči . ako SpVoiceDim i As Integer
Sub SpeakText ( ) On Error Resume NEXTIF i = 0 ThenSet reč = New SpVoiceIf Ľan ( Selection.Text ) > 1 Then ' hovoriť selectionspeech.Speak Selection.Text , _SVSFlagsAsync + SVSFPurgeBeforeSpeakElse " hovoriť celú documentspeech.Speak ActiveDocument.Range ( 0 , _ActiveDocument.Characters.Count ) . Text , _SVSFlagsAsync + SVSFPurgeBeforeSpeakEnd ifelseif i = 1 Thenspeech.Resumei = 0End IfEnd IfEnd Sub
Sub StopSpeaking ( ) On Error Resume Nextspeech . hovorte vbNullString , SVSFPurgeBeforeSpeakSet reč = Nothing = 0End Sub
Sub PauseSpeaking ( ) On Error Resume NEXTIF i = 0 Thenspeech.pausei = 1ElseIf i = 1 Thenspeech.Resumei = 0End IfEnd IfEnd Sub
4
Kliknite na makro okno v programe Word , stlačte " Ctrl - a " , a potom stlačte tlačidlo " Ctrl - v " vložiť makrá do editora . Zvoľte " Súbor " a potom kliknite na tlačidlo " Uložiť normálne . "
5
Kliknite na " Nástroje " menu , a potom zvoľte " Referencie ... " Nájdite Microsoft Speech knižnica objektov , začiarknite políčko vedľa nej , a potom vyberte " OK " . zvoľte menu " Súbor " a vyberte " Zatvoriť a vrátiť sa do programu Microsoft Word . "
6
Zvoľte " Zobraziť " z ponuky aplikácie Word , vyberte " makrá " , a potom kliknite na tlačidlo " Zobraziť makrá . " Uistite sa , že máte tri makrá zobrazovanie textu na reč : PauseSpeaking , SpeakText a StopSpeaking . Zvoľte " Zrušiť " a zatvorte okno .
Nastaviť panel s nástrojmi Rýchly prístup
7
Kliknite na šípku nadol na panel s nástrojmi Rýchly prístup nad ponuke aplikácie Word , a potom zvoľte " Viac príkazov ... "
8
vyberte " makrá " v zozname označenom " Zvoliť príkazy z " v zozname Kliknite na " Normal.Module1.SpeakText " makier a potom kliknite na tlačidlo " Pridať >> " pridať na panel s nástrojmi Rýchly prístup . Vyberte možnosť " Upraviť ... " , a potom vyberte príslušnú ikonu pre hovorenie textu.
9
Opakujte predchádzajúci krok pre " Normal.Module1.PauseSpeaking " a " Normal.Module1 StopSpeaking . " makrá . Kliknite na tlačidlo " OK " , keď urobil uložte zmeny .
10
Otvorte dokument . Kliknite na ikonu na paneli s nástrojmi Rýchly prístup , ktorý zodpovedá makru SpeakText potvrdiť , že Word číta text . Otestujte PauseSpeaking a StopSpeaking makrá potvrdiť , že správne fungovať .
Copyright © počítačové znalosti Všetky práva vyhradené