Come codificare il tasto INVIO per spostarsi tra i campi modulo in un modulo protetto in Word

Prima Macro: Spostare il cursore nel campo modulo successivo

Questa macro consente di spostare il punto di inserimento nel campo modulo successivo. Se il campo modulo corrente è l'ultima il documento, il punto di inserimento si sposta sul primo campo modulo.

Questa macro utilizza l'insieme di segnalibri per recuperare il nome del campo modulo corrente. Il nome di ogni campo è anche il nome del segnalibro inserito per il campo modulo. Se si dispongono di eventuali altri segnalibri nel documento, è necessario aggiungere ulteriori qui il codice per gestire gli errori potenziali. La macro presuppone inoltre che tutti i campi modulo nei documenti di consentano l'input dell'utente. Se non è questo il caso del documento, è necessario aggiungere ulteriore codice della macro.

La macro controlla per vedere se la sezione corrente è protetto o non protetto e quindi sposta il campo modulo successivo (in una sezione protetta) o inserisce un segno di paragrafo (in una sezione non protetta). Questa funzionalità è necessaria per i documenti che contengono entrambe le sezioni protette per moduli di input e non protette le sezioni.

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

Seconda Macro: Assegnare la Macro EnterkeyMacro per il tasto INVIO

Questa macro, la macro EnterKeyMacro connette il tasto INVIO, quindi riprogrammare la funzione del tasto quando viene utilizzata nei campi modulo documento protetto. Quando si utilizza questa macro in un modello personalizzato, denominarlo AutoNew. In questo modo la funzionalità del tasto INVIO in tutti i nuovi documenti modulo basato sul modello.

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

Terza Macro: La Macro AutoOpen assegnandogli il tasto INVIO

Aggiungere una macro AutoOpen con il codice seguente. Questo assicura che la funzionalità chiave continua quando si apre un documento basato sul modello di modulo in futuro.

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

Nota: eseguire le macro possono disattivare alcune funzionalità, quali la correzione automatica e voci di glossario e può influire sulle altre funzionalità che dipendono per il corretto funzionamento del tasto INVIO. È necessario eseguire la macro quarto per ripristinare la funzionalità predefinita del tasto INVIO o riavviare Microsoft Word.

Quarto Macro: Rimuovere il comando assegnato al tasto INVIO

Questa macro consente di ripristinare la funzionalità predefinita del tasto INVIO. Quando si utilizza questa macro in un modello personalizzato, denominarlo AutoClose.

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

Nota: la proprietà CustomizationContext imposta la posizione in cui la personalizzazione della tastiera verrà salvato, in questo caso il modello associato al documento attivo.