Πώς να δημιουργήσετε ένα κουμπί με το MS Word Χρήση της Visual Basic

Microsoft Word είναι μία από τις κορυφαίες εφαρμογές επεξεργασίας κειμένου στον κόσμο . Η λειτουργικότητα που περιλαμβάνονται στο προϊόν επιτρέπει πιο συνηθισμένο έργο που πρέπει να επιτευχθεί . Η Microsoft Visual Basic γλώσσα προγραμματισμού παρέχει επεκτασιμότητα για να επεκτείνει το προϊόν Word για να εκτελέσετε προηγμένες , τα έθιμα και σύνθετες λειτουργίες . Μικρές εφαρμογές που αφορούν την επεξεργασία κειμένου μπορεί να κατασκευαστεί χρησιμοποιώντας το Word και Visual Basic . Αυτοματοποίηση των λειτουργιών σε ένα γραφείο μπορεί να αντιμετωπιστεί χρησιμοποιώντας τη δύναμη της Visual Basic στο Word , εξοικονομώντας χρόνο και χρήμα . Τα πράγματα που θα χρειαστείτε για Microsoft Word 2000 ή νεότερη έκδοση

Παρουσίαση Περισσότερες οδηγίες
Η

1 Ανοίξτε την εφαρμογή Microsoft Word και να δημιουργήσετε ένα νέο έγγραφο χρησιμοποιώντας το κενό πρότυπο .

2

Ανοίξτε το πρόγραμμα επεξεργασίας της Visual Basic , χρησιμοποιώντας το "Alt " και τα πλήκτρα " F11 " .
εικόνων 3

Επιλέξτε " Εργαλεία" από το μενού , στη συνέχεια, κάντε κλικ στο «Αναφορά» στοιχείο. Μετακινηθείτε με τα διαθέσιμα στοιχεία για την είσοδο "Microsoft Visual Basic for Applications επεκτασιμότητας . " Αφού επιλέξετε το στοιχείο , κάντε κλικ στο κουμπί " OK" .
Η

4 Επιλέξτε το "Εισαγωγή" από τη γραμμή μενού και κάντε κλικ στο " Ενότητα " επιλογή .
5

εισάγετε τον παρακάτω κώδικα για να δημιουργήσετε ένα κουμπί που όταν πατηθεί θα εμφανίσει ένα μήνυμα κειμένου :

Sub Test ( )

" Προσθέστε ένα κουμπί εντολής σε μια νέα doc documentDim Όπως Word.DocumentDim shp Όπως το Word . InlineShapeSet doc = Documents.Add

Set shp = = " Κάντε κλικ εδώ "

' Προσθέστε μια διαδικασία για το πάτημα περίπτωση inlineshape » ** Σημείωση : Η εκδήλωση κλικ κατοικεί στο παρόν έγγραφο moduleDim Scode: Όπως StringsCode = " Private Sub " & shp.OLEFormat . Object.Name & " _CLICK ( ) " και vbCrLf & _ " MsgBox " " πατήσατε το CommandButton " "" & vbCrLf & _ " End Sub " doc.VBProject.VBComponents ( " ThisDocument ») . CodeModule . AddFromString Scode:

End Sub
Η 6

Εκτελέστε τον κώδικα χρησιμοποιώντας το πλήκτρο "F5 " . Επιλέξτε το "Test" μακροεντολή από τη λίστα μενού και κάντε κλικ στο " Run".
Η

7 Κάντε κλικ στο κουμπί με την ένδειξη "Κάντε κλικ εδώ " στο νέο έγγραφο του Word που εμφανίζονται στην οθόνη . Ένα μήνυμα θα εμφανιστεί με το κείμενο " πατήσατε το CommandButton . "
Η
εικόνων