Office: w2000 - ZeilenUmbruch totz Doku-Schutz

Hallo Group,

in Formularfeldern müssen die Eingaben per Tab bestätigt werden. Wird versehentlich die Return-Taste benutzt, wird trotz Dokumentenschutz ein ZeilenUmbruch im Textkörper eingefügt. Das Problem ist bekannt

Nun habe ich mir von den Schweizer Freunden dieses Tool geborgt:
(http://mypage.bluewin.ch/reprobst/WordFAQ/FFReturn.htm)

Public Sub ZeilenSchaltungenEliminieren()
ersatzzeichen = " "
BmName = Selection.Bookmarks(1).Name
BmValue = ActiveDocument.FormFields(BmName).Result
For i = 1 To 2
If i = 1 Then strT = Chr(13) Else strT = Chr(11)
ofs = InStr(BmValue, strT)
While ofs > 0
BmValue = Left(BmValue, ofs - 1) & ersatzzeichen & Mid(BmValue, ofs + 1)
ofs = InStr(BmValue, strT)
Wend
Next i
ActiveDocument.FormFields(BmName).Result = BmValue
End Sub

Gehe ich nun in den VDE-Bereich, benutze F5 ... dann macht der das.
Die Feldeingabe ist bestätigt, die Leerzeile gelöscht, und das nächste Formularfeld hat den Focus. Voll genial.

Rufe ich aber das Makro über die Formularfeld-Option (Beenden: ZeilenschaltungEliminieren), dann macht er das nicht (???)

Irgendwo denke ich hier falsch - aber wo?

Gruß ArkiraSun

(Word 2000 | Symbolleiste | Formulare)