VBA Code falsch?

Hallo,
ich habe folgenden VBA Code erzeugt, um in meinem Formular die Enter Taste zu unterdrücken, bzw. um zu verhindern, das bei drücken der Entertaste das Formular verrutscht.
Allerdings bekomme ich dann die Fehlermeldung: Laufzeitfehler '5941' Das angeforderte Element ist nicht in der Sammlung vorhanden.

Hier der Code:

Sub AutoNew()
If ActiveDocument.Type = wdTypeTemplate Then Exit Sub
InstallFunction
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
Templates(ActiveDocument.AttachedTemplate.FullName).Save
End Sub

Sub AutoOpen()
InstallFunction
End Sub

Sub AutoClose()
If ActiveDocument.Type = wdTypeTemplate Then Exit Sub
CustomizationContext = ActiveDocument.AttachedTemplate
FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable
FindKey(KeyCode:=BuildKeyCode(wdKeyShift, wdKeyReturn)).Disable
Templates(ActiveDocument.AttachedTemplate.FullName).Save
End Sub

Private Sub InstallFunction()
CustomizationContext = ActiveDocument.AttachedTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
KeyCategory:=wdKeyCategoryMacro, Command:="TabFunction1"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyShift, wdKeyReturn), _
KeyCategory:=wdKeyCategoryMacro, Command:="TabFunction2"
End Sub

Sub TabFunction1()
TabFunction 13
End Sub

Sub TabFunction2()
TabFunction 11
End Sub

Private Sub TabFunction(KeyAscii As Long)
Dim oDoc As Document
Set oDoc = ActiveDocument
If oDoc.ProtectionType > 0 And _
oDoc.Sections(Selection.Information(2)).ProtectedForForms = True Then
x = Selection.Bookmarks(1).Name
If oDoc.FormFields(x).Name <> oDoc.FormFields(oDoc.FormFields.Count).Name Then
oDoc.FormFields(x).Next.Select
Else
oDoc.FormFields(1).Select
End If
Else
Selection.TypeText Text:=Chr(KeyAscii)
End If
End Sub

Die markierte Zeile ist wohl inkorrekt? (x = Selection.Bookmarks(1).Name)

Kann mir jemand sagen was ich falsch mache!

Vielen Dank schonmal im vorhinein.

Gruß, Phip

 

Hallo,
was willst du damit eigentlich erreichen?

Code:

Selection.Bookmarks(1).Name

liefert den Inhalt der 1. Textmarke im selektierten Bereich
Scheinbar hat dieser Bereich keine Textmarke.