erster Versuch mit VBA unter Autohotkey:
Code: Select all
#IfWinActive ahk_class OpusApp
q::
Word := ComObjActive("Word.Application")
If !Word
{
MsgBox, Word ist leer
Return
}
ToolTip,% Word.ActiveDocument.FullName
Sleep, 1000
ToolTip
;https://msdn.microsoft.com/de-de/vba/word-vba/articles/font-position-property-word
;der markierte Text wird um 2 Punkt nach unten verschoben.
Word.Selection.Font.Position := -2
Return
Muß man irgendwie noch befehlen, daß das gewünschte auch passieren soll?
(Windows 7, Word 2010, Autohotkey Admin, UAC tot.)