Como codificar a tecla ENTER para mover-se entre campos de formulário em um formulário protegido no Word

Primeira Macro: Mover o ponto de inserção para o próximo campo do formulário

Esta macro move o ponto de inserção para o próximo campo do formulário. Se o campo de formulário atual for o último no documento, ele move o ponto de inserção para o primeiro campo de formulário.

Essa macro usa a coleção Bookmarks para recuperar o nome do campo de formulário atual. O nome de cada campo de formulário também é o nome de um indicador inserido para o campo de formulário. Se você tiver quaisquer outros indicadores no seu documento, você terá que adicionar mais código aqui para manipular erros potenciais. A macro também pressupõe que todos os campos de formulário nos documentos permitem a entrada do usuário. Se esse não é o caso no seu documento, você precisa adicionar código adicional em sua macro.

A macro verifica para ver se a seção atual está protegida ou desprotegido e move para o próximo campo do formulário (em uma seção protegida) ou insere uma marca de parágrafo (em uma seção desprotegida). Essa funcionalidade é necessária para documentos que contenham as duas seções protegidas para formulário de entrada e desprotegido seções.

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

Segunda Macro: Atribuir a Macro EnterkeyMacro a tecla ENTER

Essa macro anexa a macro EnterKeyMacro para a tecla ENTER, reprogramação, assim, a função da tecla quando ela é usada em campos de formulário do documento protegido. Quando você usa esta macro em um modelo personalizado, nome AutoNew. Isso altera a funcionalidade da tecla ENTER em todos os novos documentos de formulário com base no modelo.

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

Terceira Macro: Atribuir a Macro AutoOpen para a tecla ENTER

Adicione uma macro AutoOpen com o código a seguir. Isso garante que a funcionalidade da chave continua quando você abre um documento baseado no modelo de formulário no 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

Observação: executando essas macros podem desabilitar alguns recursos, como AutoCorreção e AutoTexto e podem afetar outros recursos que dependem da tecla ENTER para uma operação adequada. Você precisa executar a macro quarta para restaurar a funcionalidade padrão da tecla ENTER ou reinicie o Microsoft Word.

Quarta Macro: Remover o comando atribuído à tecla ENTER

Essa macro restaura a funcionalidade padrão da tecla ENTER. Quando você usa esta macro em um modelo personalizado, nome AutoClose.

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

Observação: A propriedade CustomizationContext define o local onde a personalização do teclado a ser salvo, nesse caso o modelo anexado ao documento ativo.