Tecla enter pula para a próxima linha em um documento de formulário protegido por sen

[gilcom1]

Boa noite.

Trabalho com processos onde somente alguns itens são modificados, fiz no word 2003 os documentos e coloquei os campos do formulário conforme condiz com as minhas necessidades, ficou lindo e prático não exigindo de mim e nem muitas habilidades afinal ele faz conforme programado, mas o problema está quando aperto a tecla enter, ele cria uma linha abaixo do documento e não converte para o que foi programado, somente a tecla tab converte para o que preciso, mesmo ele protegido por senha e definido como apenas preenchimento de formulário. Mesmo sem entender de VB pesquisei e fiz o seguinte: criei um modulo no documento e digitei

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

fui no ThisDocument e copiei

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

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

Sub AutoClose()

CustomizationContext = ActiveDocument.AttachedTemplate

FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable

' Disables prompt to save template changes.

Templates(1).Save

End Sub

mas não resolveu meu problema afinal ele somente pula de um formulário para o outro sem fazer a modificação que preciso, e para que foi programada.

Se alguém puder me ajudar agradeço.

Gil:confused:

[zinhovba]

Boa noite!!

Tente depositar seu arquivo para que o pessoal possa ajuda-lo!

Tente também ver a tabulação ou o camando SetFocus

Att

[gilcom1]

Sou leiga nesse assunto mas procurei e não achei nada.

Poderia ser mais claro por favor.

Obrigada

[zinhovba]

Boa noite!!

Para resolver seu problema de conhecimento veja

https://www.google.com.br/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&ved=0CDwQFjAA&url=http%3A%2F%2Fwww.bertolo.pro.br%2FFinEst%2FSemanaContabeis2007%2FMacroExcel.pdf&ei=Uv7qUauHM4Hu8QSQ0oCYCg&usg=AFQjCNE2XEgqYMj2HTHH3qvQQG0Z64Vx9w&bvm=bv.49478099,d.eWU

No mais poste seu arquivo!

Att

[gilcom1]

consegui descobrir vou postar a resposta para caso alguém precise esteja ai a solução.

para que o enter funcione igual ao tab é só excluir

' 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.FormField s.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

e substituir por

'Sendkeys "{tab}"

caso não queira que a tecla enter funcione é digitar

Sub EnterKeyMacro()

End Sub

agradeço aos que tentaram me ajudar

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.