https://www.herber.de/bbs/user/68526.doc
ist an sich unnötig, da ist nur Beipieltext und drei Checkboxen (aus Steuerelementtoolbox) drin.
Mit F11 will ich, so wie wenn das Dokument geschützt ist mit TAB, von Checkbox zu Checkbox hüpfen, sodaß ich mit der Leertaste das Häkchen setzen/entfernen kann.
Dies klappt auch schon, allerdings muß ich F11 immer zweimal drücken.
Beim zweiten Mal wird das Ereignis "Keydown" gar nicht ausgeführt.
Drücke ich einmalig F11, danach dann manuell beliebig die Tabtaste, eine Pfeiltaste o.ä., dann klappt F11.
Scheinbar ist Word nach dem ersten F11 in einem anderen Modus, das zweite F11 hebt dann diesen Modus wieder auf.
Wie kann ich das in Vba umsetzen?
Nachstehend die Codes.
Danke ^ Gruß
Reinhard
in Modul1:
Sub CBtoCB()
Static intCB As Integer
intCB = IIf(intCB = ActiveDocument.InlineShapes.Count, 1, intCB + 1)
'SendKeys "{TAB}", True
ActiveDocument.InlineShapes(intCB).OLEFormat.Object.Select
'SendKeys "{TAB}", True
'DoEvents
'ActiveDocument.Activate
'Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
in Thisdocument:
Private Sub CheckBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 122 Then Call CBtoCB
'DoEvents
End Sub
Private Sub CheckBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 122 Then Call CBtoCB
'DoEvents
End Sub
Private Sub CheckBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 122 Then Call CBtoCB
'DoEvents
End Sub