Hier ist eine harte Lösung für Word (nur), die sowohl AutoHotKey- als auch Word-Makros erfordert. Es funktioniert nur in der Hauptdokumentansicht in Word (was für mich gut genug ist).
Verwenden Sie zunächst AutoHotKey, um als Reaktion auf die Mausaktion einen benutzerdefinierten Tastenanschlag an Word zu senden. Ich verwende Alt-M RightArrow und Alt-M LeftArrow. (Ich habe auch Mappings für die WheelLeft- und WheelRight-Ereignisse, da meine Maus sie gut sendet; ich brauche nur Word, um etwas Nützliches mit ihnen zu tun.)
#If WinActive("ahk_class OpusApp") +WheelUp::SendInput !+M WheelLeft::SendInput !+M WheelRight::SendInput !+M +WheelDown::SendInput !+M #If
Richten Sie Word-Tastenzuordnungen ein (alternativ können Sie dazu das Dialogfeld zur Anpassung der Tastatur verwenden):
' Alt-Shift-M Right (keycode 39) KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyM, wdKeyShift, wdKeyAlt), _ KeyCode2:=BuildKeyCode(39), _ KeyCategory:=wdKeyCategoryMacro, Command:="Normal.NewMacros.ScrollRight" ' Alt-Shift-M Left (keycode 37) KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyM, wdKeyShift, wdKeyAlt), _ KeyCode2:=BuildKeyCode(37), _ KeyCategory:=wdKeyCategoryMacro, Command:="Normal.NewMacros.ScrollLeft"
Definieren Sie schließlich die Word-Makros in Ihrer Vorlage "Normal" (oder passen Sie die Verweise darauf oben an):
Sub ScrollRight() ActiveWindow.SmallScroll ToRight:=1 End Sub Sub ScrollLeft() ActiveWindow.SmallScroll ToLeft:=1 End Sub