title image


Smiley Re: Word 2002: Tastaturereigniss global abfange, wie gehts?
Bsp. (das "irgendwo im Text befinde..." ist natürlich nicht greifbar):



Private Sub TasteVerbiegen()

' Diese Routine z.B. von AutoOpen-Routine aufrufen oder auch nur 1 mal (auch aus anderer Datei bei aktivierter Zieldatei) starten

CustomizationContext = ActiveDocument

KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyA), KeyCategory:=wdKeyCategoryMacro, Command:="TasteKleinesAAbfangen"

End Sub



Sub TasteKleinesAAbfangen()

Dim lZeile As Long

' Beispiel-Kriterium

lZeile = Selection.Information(wdFirstCharacterLineNumber)

If lZeile > 5 Then

' statt der msgbox Aufruf deiner Routine

MsgBox "Zeile " & lZeile & " = Makro xyz starten"

Else

Selection.TypeText "a"

End If

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: