1 Ανοίξτε το PowerPoint στον υπολογιστή σας . 2
πιέστε τα " ALT " πλήκτρα + " F11 " στο πληκτρολόγιο σας . Αυτό ανοίγει το πρόγραμμα επεξεργασίας για τη Visual Basic .
Εικόνων 3
Κάντε κλικ στο " Εισαγωγή" στο πάνω μέρος της οθόνης του επεξεργαστή κειμένου και επιλέξτε " Ενότητα ".
Η 4
Αντιγράψτε το παρακάτω κώδικα στην οθόνη μονάδα .
******************************* demoTTS Sub ( )
' αναγνωρίσει και να δημιουργήσει ένα Excel object.Dim XL Όπως Excel.ApplicationSet XL = CreateObject ( " Excel.Application " )
ActivePresentation.SlideShowSettings.Run
Με SlideShowWindows ( 1 ) . View'The παρακάτω λέγεται στην πρώτη διαφάνεια : " . Καλώς ήρθατε στην παρουσίασή μου " XL.Speech.Speak 'Αλλαγή για να γλιστρήσει 2 , και στη συνέχεια να πω τα εξής δύο φράσεις : . NextXL.Speech.Speak " Αυτό είναι ένα παράδειγμα της πώς να δημιουργήσετε ένα αντικείμενο εφαρμογής του Excel . " XL.Speech.Speak « Μπορούμε να χρησιμοποιήσουμε το μοντέλο αντικειμένου του Excel να επικαλεστεί Text to Speech . "
« Κλείστε το αντικείμενο του Excel και να ρυθμίσετε το αντικείμενο για να nothing.XL.QuitSet XL = Τίποτα
« Έξοδος από το slideshow .. ExitEnd Με
End Sub
******************** ***********
5
Επιλέξτε " Αναφορές" από το μενού " Εργαλεία" του συντάκτη .
Η
6 Επιλέξτε "Microsoft Excel 10.0 "κάτω από τις επιλογές στο" Διαθέσιμο Βιβλιογραφία ». Κάντε κλικ στο " OK " για να κλείσετε το παράθυρο .
Η
7 Κάντε κλικ στο μενού "Εργαλεία " που βρίσκεται στο πάνω μέρος του παραθύρου .
8
σημείο να "Macro " και κάντε κλικ με θέμα "Ασφάλεια ".
Η 9
Μετακίνηση στην καρτέλα "Επίπεδο ασφαλείας " και επιλέξτε "Medium ". Κάντε κλικ στο κουμπί " OK" .
Η 10
Επανεκκίνηση PowerPoint και την προεπισκόπηση του εγγράφου για να δείτε TTS σε δράση .
Εικόνων του Word
Η 11
Open Word στον υπολογιστή σας .
Η 12
Ακολουθήστε τα βήματα 2 και 3 του τμήματος 1 , αλλά το πρόγραμμα Word.
Η 13
Αντιγράψτε τον παρακάτω κώδικα στη Visual Basic.
******************************* Sub TTS ( ) 'Δήλωση και θα δημιουργήσουμε μια Excel object.Dim XL_tts Όπως Excel.ApplicationSet XL_tts = CreateObject ( " Excel.Application " ) XL_tts.Speech.Speak SelectionXL_tts.QuitSet XL_tts = NothingEnd Sub
****************** *************
Η 14
Συμπληρώστε το ένθετο μονάδας χρησιμοποιώντας τα βήματα 5 έως 9 στο τμήμα 1 . Microsoft Office έχει σχεδιαστεί έτσι ώστε οι ίδιες ενέργειες λειτουργούν σε όλα τα προγράμματα . Αυτό που προσθέτει μια μονάδα στο PowerPoint λειτουργεί επίσης στο Word .
Η 15
Κάντε επανεκκίνηση του Word στον υπολογιστή σας και να κάνετε προεπισκόπηση του εγγράφου σας .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα