Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Basic Editor z aplikácie Word stlačením Alt + F11 klávesy . Kliknite na menu " Nástroje " a vyberte " Odkazy " . Je vybraná v zozname s označením " Dostupné odkazy " , prejdite do " Microsoft Speech Object Library " . Kliknite na zaškrtávacie políčko vedľa tohto zoznamu . Kliknite na tlačidlo " OK " .
2
Pridať nový modul kliknutím na " Vytvoriť nový modul " na Microsoft Visual Basic Editor . Vyberte pole " Name " a zadajte " TextToSpeech . " V " Makro " príkazové oblasti , vložte nasledujúci kód :
Dim reč ako SpVoice
Sub SpeakText ( )
On Error Resume Next
Set reč = New SpVoice
If Ľan ( Selection.Text ) > 1 Then ' hovoriť výber
speech.Speak Selection.Text , _
SVSFlagsAsync + SVSFPurgeBeforeSpeak
Else ' hovoriť celý dokument
speech.Speak ActiveDocument.Range ( 0 , ActiveDocument.Characters.Count ) . Text , _
SVSFlagsAsync + SVSFPurgeBeforeSpeak
End If
klipart
DoEvents klipart
slučke , kým speech.WaitUntilDone ( 10 )
Set reč = Nothing
End Sub
Sub StopSpeaking ( )
použité prerušiť všetky spustené reč na text
On Error Resume " na makro Mathew Heikkila
základe " Ďalšie
speech.Speak vbNullString , SVSFPurgeBeforeSpeak
Set reč = Nothing
End Sub
3
Kliknite pravým tlačidlom myši na paneli nástrojov aplikácie Word 2007 . Zo zoznamu vyberte " Prispôsobiť panel s nástrojmi Rýchly prístup . " Kliknite na " Pridať makro " a vyberte novovytvorený " TextToSpeech " makro . Kliknite na " Pridať " a potom " OK " . Toto tlačidlo panela nástrojov sa teraz obrátiť textu na reč a vypínať podľa potreby .
Copyright © počítačové znalosti Všetky práva vyhradené