Πώς να δημιουργήσετε πλαίσια εισόδου και μηνυμάτων σε ένα έγγραφο του Word με VBA;

Τελευταία ενημέρωση: Ιούλιος 2020. Εφαρμογή: Office 365,2019, 2016, 2013.

Μερικές φορές, θα θέλαμε να κάνουμε τα έγγραφά μας στο Word πιο διαδραστικά και ακόμη και να καταγράφουμε κάποια στοιχεία από τον χρήστη. Εισαγάγετε τα πλαίσια μηνυμάτων και εισαγωγής.

Όπως υποδηλώνει το όνομα, ένα πλαίσιο μηνύματος είναι μια πληροφορία που εμφανίζεται στους χρήστες του εγγράφου. Τα κουτιά εισόδου είναι χρήσιμα για τη λήψη πληροφοριών από τον χρήστη.

Αυτή η ανάρτηση περιέχει όλες τις πληροφορίες και τα δείγματα κώδικα που θα χρειαστείτε για να δημιουργήσετε πλήρως λειτουργικά έγγραφα με το μήνυμα της Visual Basic for Applications (VBA) και τα πλαίσια εισαγωγής για το Microsoft Word.

Πώς να προσθέσετε κώδικα VBA στο Word;

Πριν προχωρήσουμε και εξηγήσουμε πώς μπορείτε να προσθέσετε πλαίσια μηνυμάτων και εισαγωγής, ακολουθεί μια γρήγορη ανανέωση σχετικά με τον τρόπο προσθήκης του προσαρμοσμένου κώδικα VBA σε ένα έγγραφο του Word.

• Πρώτα, προχωρήστε και ενεργοποιήστε την καρτέλα Προγραμματιστής .
• Τώρα, πατήστε το  κουμπί  της Visual Basic από την καρτέλα Προγραμματιστής  . Αυτό θα ανοίξει το πρόγραμμα επεξεργασίας της Visual Basic.

• Επισημάνετε το έγγραφό σας.
• Κάντε κλικ  στην Εισαγωγή  και, στη συνέχεια, επιλέξτε  Μονάδα .

• Αντιγράψτε τον κώδικα που παρέχουμε παρακάτω στην ενότητα που μόλις δημιουργήσατε στη λειτουργική σας μονάδα.
• Κάντε κλικ στο Save. Δώστε ένα όνομα στο έγγραφό σας εάν σας ζητηθεί.
• Κλείστε το πρόγραμμα επεξεργασίας της Visual Basic.

Κουτιά μηνυμάτων Κωδικός VBA

Σύνταξη:

MsgBox (προτροπή, κουμπιά, τίτλος, αρχείο βοήθειας, πλαίσιο)

Επεξήγηση σύνταξης:

Προτροπή:

Απαιτείται. Είναι οι πληροφορίες που μπορούν να δοθούν στον χρήστη. Θα πρέπει να εισαχθεί μέσα στο  διπλό εισαγωγικό .

Κουμπιά:

Προαιρετικός. Τα κουμπιά είναι αυτά τα κουμπιά που δίνονται στις πληροφορίες των χρηστών. Υπάρχουν διάφορα κουμπιά διαθέσιμα για το MsgBox() και μπορείτε να τα βρείτε στις παρακάτω εικόνες.

Τίτλος:

Προαιρετικός. Είναι ο τίτλος για τις πληροφορίες που δίνονται στον χρήστη. Εάν δεν δοθεί,  το Microsoft word  θα είναι ο προεπιλεγμένος τίτλος.

Αρχείο βοήθειας και πλαίσιο:

• Προαιρετικός. Το Helpfile θα αναγνωρίσει το αρχείο Βοήθειας που είναι διαθέσιμο στον τοπικό δίσκο, το οποίο μπορεί να παρέχεται ως βοήθεια σε ένα παράθυρο διαλόγου
• Προαιρετικός. Το πλαίσιο είναι μια αριθμητική έκφραση που χρησιμοποιείται για τον προσδιορισμό του θέματος βοήθειας με τον μοναδικό αριθμό.

Δείγμα κωδικού πλαισίου μηνύματος

'VBA
Sub messagebox()

'Variables assigned

Dim buttonclick As VbMsgBoxResult

'Message box to display information to user

MsgBox "Hi, Visual Basic is easy to work with", vbExclamation, "VBA"

'Message box to ask question to user with yes or no question
buttonclick = MsgBox("Do you like VBA?", vbQuestion + vbYesNo, "VBA")
If buttonclick = vbYes Then
MsgBox "Yes, they are great!", vbExclamation, "VBA"
Else
MsgBox "Why not? They are great!", vbCritical, "VBA"
End If

End Sub

Παραγωγή:

Παράθυρα διαλόγου και εισόδου Κωδικός VBA

Το πλαίσιο εισαγωγής είναι ένας απλός διάλογος που μας επιτρέπει να ζητάμε από τον χρήστη κάποιες πληροφορίες. Ας εξοικειωθούμε με τον κώδικα VBA χρησιμοποιώντας ένα παράδειγμα.

Σύνταξη:

InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, HelpContextId, Type)

Επεξήγηση σύνταξης:

Προτροπή:

Απαιτείται. Είναι οι πληροφορίες που μπορούν να δοθούν στον χρήστη. Θα πρέπει να εισαχθεί μέσα στο  διπλό εισαγωγικό .

Τίτλος:

Προαιρετικός. Είναι ο τίτλος για τις πληροφορίες που δίνονται στον χρήστη. Εάν δεν δοθεί,  το Microsoft word  θα είναι ο προεπιλεγμένος τίτλος.

Προκαθορισμένο:

Προαιρετικός. Εμφανίζει την προεπιλεγμένη τιμή μέσα στο πλαίσιο κειμένου, πριν ο χρήστης πληκτρολογήσει μια τιμή. Εάν δεν έχει καθοριστεί, το πλαίσιο κειμένου θα είναι κενό.

XPos:

Προαιρετικός. Χρησιμοποιείται ως θέση στον άξονα Χ. Από τα αριστερά στα δεξιά

YPos:

Προαιρετικός. Χρησιμοποιείται ως θέση στον άξονα Υ. Απο πανω μεχρι κατω

Helpfile και HelpContext ID:

• Προαιρετικός. Το Helpfile θα αναγνωρίσει το αρχείο Βοήθειας που είναι διαθέσιμο στον τοπικό δίσκο, το οποίο μπορεί να παρέχεται ως βοήθεια σε ένα παράθυρο διαλόγου
• Προαιρετικός. Το HelpContext ID είναι ο αριθμός αναγνωριστικού για το αρχείο βοήθειας.

Κωδικός πλαισίου εισαγωγής:

'VBA
Sub macro()

'Variables assigned
Dim a As Long
Dim b As Long

'Input box to get value from user

a = InputBox("Enter a value for a", "Question 1")
b = InputBox("Enter a value for b", "Question 2")

'Answer displayed in a message box
MsgBox ("Answer is " & Val(a) + Val(b))
End Sub

Παραγωγή: