Como código a tecla ENTER para percorrer os campos de formulário num formato protegido no Word

Primeira Macro: Mover o ponto de inserção para o campo de formulário seguinte

Esta macro move o ponto de inserção para o campo de formulário seguinte. Se o campo de formulário actual for o último no documento, move o ponto de inserção para o primeiro campo de formulário.

Esta macro utiliza a colecção de marcadores para obter o nome do campo de formulário actual. O nome de cada campo de formulário é também o nome de um marcador inserido para o campo de formulário. Se tiver quaisquer outros marcadores no documento, poderá ter de adicionar mais código aqui para processar erros potenciais. A macro também parte do princípio de que todos os campos de formulário nos documentos permitem a introdução de dados. Se não for este o caso no documento, terá de adicionar código adicional na macro.

A macro verifica se a secção actual está protegida ou não protegido e, em seguida, move para o campo de formulário seguinte (numa secção protegida) ou insere uma marca de parágrafo (de uma secção desprotegida). Esta funcionalidade é necessária para documentos que contêm ambas as secções que estão protegidas para formulário de entrada e desprotegido secçõ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 de EnterkeyMacro para a tecla ENTER

Esta macro anexa a macro de EnterKeyMacro a tecla ENTER, assim sua reprogramação a função da chave quando é utilizado em campos de formulário do documento protegido. Quando utilizar esta macro no modelo personalizado, o nome AutoNew. Isto altera a funcionalidade da tecla ENTER em todos os documentos de formulário novo baseado 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 seja a tecla ENTER

Adicione uma macro AutoOpen seja com o seguinte código. Isto garante que a funcionalidade chave continua quando 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

Nota: executar estas macros podem desactivar algumas funcionalidades, tais como a correcção automática e de texto automático e pode afectar outras funcionalidades que dependem da tecla ENTER para um funcionamento correcto. É necessário executar a macro quarta para restaurar a funcionalidade predefinida da tecla ENTER ou reinicie o Microsoft Word.

Quarta Macro: Remover o comando atribuído para a tecla ENTER

Esta macro restaura a funcionalidade predefinida da tecla ENTER. Quando utilizar esta macro no modelo personalizado, o nome AutoClose.

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

Nota: A propriedade CustomizationContext define a localização onde a personalização do teclado deve ser guardado, neste caso, o modelo anexado ao documento activo.