Πώς να γράψετε κώδικα το πλήκτρο ENTER για να μετακινήστε μεταξύ των πεδίων φόρμας σε προστατευμένες φόρμες στο Word

Πρώτη μακροεντολή: Μετακίνηση του σημείου εισαγωγής στο επόμενο πεδίο φόρμας

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

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

Η μακροεντολή ελέγχει αν στην τρέχουσα ενότητα είναι προστατευμένο ή κατάργηση της προστασίας και στη συνέχεια είτε μετακινείται στο επόμενο πεδίο φόρμας (σε μια προστατευμένη ενότητα) ή εισάγει ένα σημάδι παραγράφου (σε μια προστατευμένη ενότητα). Αυτή η λειτουργία είναι απαραίτητη για έγγραφα που περιέχουν και τις δύο ενότητες που προστατεύονται για φόρμα εισαγωγής και χωρίς προστασία ενοτήτων.

Sub EnterKeyMacro()
' Check whether the document is protected for forms
' and whether the protection is active.
   If ActiveDocument.ProtectionType = wdAllowOnlyFormFields And _
   Selection.Sections(1).ProtectedForForms = True Then
      ' Retrieve the bookmark of the current selection.
      ' This is equivalent to the name of the form field.
      myformfield = Selection.Bookmarks(1).Name
      ' Go to the next form field if the current form field
      ' is not the last one in the document.
      If ActiveDocument.FormFields(myformfield).Name <> _
      ActiveDocument.FormFields(ActiveDocument.FormFields.Count) _
      .Name Then
         ActiveDocument.FormFields(myformfield).Next.Select
      Else
         ' If the current form field is the last one,
         ' go to the first form field in the document.
         ActiveDocument.FormFields(1).Select
      End If
   Else
   ' If the document is not protected for forms,
   ' insert a tab stop character.
      Selection.TypeText Chr(13)
   End If
End Sub

Δεύτερη μακροεντολή: Αντιστοίχιση μακροεντολής EnterkeyMacro για το πλήκτρο ENTER

Αυτή η μακροεντολή προσαρτά τη μακροεντολή EnterKeyMacro το πλήκτρο ENTER, ως εκ τούτου νέο προγραμματισμό η λειτουργία του πλήκτρου όταν χρησιμοποιείται στον προστατευμένο έγγραφο πεδία φόρμας. Όταν χρησιμοποιείτε αυτήν τη μακροεντολή σε ένα προσαρμοσμένο πρότυπο, ονομάστε το AutoNew. Αυτή η ενέργεια αλλάζει τη λειτουργικότητα του πλήκτρου ENTER σε όλα τα νέα έγγραφα φόρμας βάσει του προτύπου.

Sub AutoNew()
 ' Do Not protect the template containing these macros.
   CustomizationContext = ActiveDocument.AttachedTemplate
   ' Bind the ENTER key to the EnterKeyMacro.
   KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
   KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMacro"
   ' Reprotect the document with Forms protection.
   ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

Τρίτη μακροεντολής: Αντιστοίχιση της μακροεντολής AutoOpen για το πλήκτρο ENTER

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

Sub AutoOpen()
' This macro will reassign the ENTER key when you open an existing
' Word form fields document.
   CustomizationContext = ActiveDocument.AttachedTemplate
   ' Bind the Enter key to the EnterKeyMacro.
   KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
   KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMacro"
End Sub

ΣΗΜΕΊΩΣΗ: εκτελούνται αυτές οι μακροεντολές ενδέχεται να απενεργοποιείτε ορισμένες δυνατότητες, όπως η Αυτόματη διόρθωση και αυτόματου κειμένου, και μπορεί να επηρεάσει άλλες δυνατότητες που εξαρτώνται από το πλήκτρο ENTER για σωστή λειτουργία. Πρέπει να εκτελέσετε τη μακροεντολή τέταρτο για να επαναφέρετε την προεπιλεγμένη λειτουργικότητα του πλήκτρου ENTER, ή επανεκκίνηση του Microsoft Word.

Τέταρτη μακροεντολής: Κατάργηση της εντολής που έχει αντιστοιχιστεί με το πλήκτρο ENTER

Η μακροεντολή αυτή επαναφέρει την προεπιλεγμένη λειτουργικότητα του πλήκτρου ENTER. Όταν χρησιμοποιείτε αυτήν τη μακροεντολή σε ένα προσαρμοσμένο πρότυπο, ονομάστε το αυτή.

Sub AutoClose()
   CustomizationContext = ActiveDocument.AttachedTemplate
   FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable
   ' Disables prompt to save template changes.
   Templates(1).Save
End Sub

ΣΗΜΕΊΩΣΗ: Η ιδιότητα CustomizationContext ορίζει τη θέση, όπου η προσαρμογή πληκτρολογίου είναι να αποθηκευτούν σε αυτήν την περίπτωση, το πρότυπο που επισυνάπτεται στο ενεργό έγγραφο.