title image


Smiley Re: Word 2002 - Enter-Taste funktioniert nicht
Hallo - hatte das Problem bei Word-Formularen auch... (Bei W97 war das einfach besser!!!) Die kurze, schnelle Lösung ist ein Löschen/Umbenennen der Normal.dot des betroffenen Benutzers - Vorsicht: Alle in der Normal.dot gespeicherten Informationen (Schriftart, Autotext...) gehen dadurch verloren. Word legt beim Neustart eine leere Normal.dot an, und die Enter-Taste sollte wider gehen.

Meine Lösung des Problems: Das nachfolgende Makro: (Beachte: Das Dokument muß entsprechend geschützte Abschnitte haben und beim Speichern der .dot-Vorlage darf sie nicht für Formulareingabe geschützt sein, das erledigt das Makro beim Öffnen...)



Gruß Dietmar







Sub EnterKeyMakro()

' Überprüfen, ob das Dokument für Formulareingabe geschützt wurde und ob der Schutz aktiv ist.

If ActiveDocument.ProtectionType = wdAllowOnlyFormFields And _

Selection.Sections(1).ProtectedForForms = True Then

' Die Textmarke der aktuellen Markierung abrufen.

' Diese entspricht dem Namen des Formularfeldes.

myformfield = Selection.Bookmarks(1).Name

' Zum nächsten Formularfeld bewegen, wenn das aktuelle Formularfeld nicht das letzte Feld im Dokument ist.

If ActiveDocument.FormFields(myformfield).Name _

ActiveDocument.FormFields(ActiveDocument.FormFields.Count) _

.Name Then

ActiveDocument.FormFields(myformfield).Next.Select

Else

' Wenn das aktuelle Formularfeld das letzte Feld ist, zum ersten Formularfeld im Dokument gehen.

ActiveDocument.FormFields(1).Select

End If

Else

' Wenn das Dokument nicht für Formulareingabe geschützt ist, einen Tabstopp einfügen.

Selection.TypeText Chr(13)

End If

End Sub

Sub AutoNew()

' Die Vorlage, die diese Makros enthält, nicht schützen.

CustomizationContext = ActiveDocument.AttachedTemplate

' Die EINGABETASTE an das Makro "EnterKeyMakro" binden.

KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _

KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMakro"

' Das Dokument mit Formularschutz erneut schützen.

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

End Sub

Sub AutoOpen()

' Dieses Makro weist die EINGABETASTE erneut zu, wenn ein vorhandenes Word-Dokument mit Formularfeldern geöffnet wird.

CustomizationContext = ActiveDocument.AttachedTemplate

' Die EINGABETASTE an das Makro "EnterKeyMakro" binden.

KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _

KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMakro"

End Sub

Sub AutoClose()

CustomizationContext = ActiveDocument.AttachedTemplate

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

' Deaktiviert die Aufforderung zum Speichern der Vorlagenänderungen.

Templates(1).Save

End Sub







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: