Ξεκινήστε το Microsoft Visual Basic Editor μέσα από το Word πατώντας Alt + πλήκτρα F11 . Κάντε κλικ στο μενού "Εργαλεία" και στη συνέχεια επιλέξτε "Αναφορές ". Στη λίστα με την ένδειξη " Διαθέσιμες αναφορές , " κουμπί μέχρι " ομιλίας της Microsoft Object Library " είναι επιλεγμένο . Κάντε κλικ στο πλαίσιο ελέγχου δίπλα σε αυτή την καταχώρηση. Κάντε κλικ στο " OK". 2
Προσθέστε μια νέα λειτουργική μονάδα κάνοντας κλικ στο " Δημιουργία νέου Module" στο Microsoft Visual Basic. Επιλέξτε το πεδίο "Όνομα" και πληκτρολογήστε " TextToSpeech . " Στο "Macro " περιοχή εντολών, επικολλήστε τον ακόλουθο κώδικα :
Dim ομιλία ως SpVoice
Sub SpeakText ( )
On Error Resume Next
Set ομιλία = Νέα SpVoice
Αν Len ( Selection.Text ) > 1 Then ' μιλούν επιλογή
speech.Speak Selection.Text , _
SVSFlagsAsync + SVSFPurgeBeforeSpeak
Else » μιλούν ολόκληρο το έγγραφο
speech.Speak ActiveDocument.Range ( 0 , ActiveDocument.Characters.Count ) . κειμένου , _
SVSFlagsAsync + SVSFPurgeBeforeSpeak
End If
Κάντε
DoEvents
Loop Μέχρι speech.WaitUntilDone ( 10 )
Set ομιλία = Τίποτα
End Sub
Sub StopSpeaking ( )
« με βάση μια μακροεντολή από Mathew Heikkila
» χρησιμοποιείται για να διακόψει όλες τις περιόδους λειτουργίας ομιλία σε κείμενο
On Error Resume Next
speech.Speak vbNullString , SVSFPurgeBeforeSpeak
Set ομιλία = Τίποτα
End Sub
εικόνων 3
κάντε δεξί κλικ στη γραμμή εργαλείων του Word 2007 . Από τη λίστα , επιλέξτε " Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης . " Κάντε κλικ στην επιλογή " Προσθήκη Macro " και επιλέξτε το νεοσυσταθέν « TextToSpeech " macro . Κάντε κλικ στο " Add" και μετά " OK". Αυτό το κουμπί της γραμμής εργαλείων , θα στρέψουμε τώρα κειμένου σε ομιλία και να σβήνουν , όπως απαιτείται .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα