Set Highlight of selected text

[Tee]

Hello Everyone,

Hope someone will be able to help

I want to make hot-keys to highlight onlt the selected text with f10, f11, f12
I' having an issue with the highlight, it highlight all the text and it is staying on after it applies the highlight
Is there a way to only highlight the selected and turn it off after it applies the desired color to highlight with?

Code:

; AutoHotkey_L

F10:: ComObjActive("Word.Application").ActiveDocument.Range.HighlightColorIndex := 2
F11:: ComObjActive("Word.Application").ActiveDocument.Range.HighlightColorIndex := 3
F12:: ComObjActive("Word.Application").ActiveDocument.Range.HighlightColorIndex := 4

[jeeswg]

For highlighting, something like this:

Code: Select all

F10:: ComObjActive("Word.Application").Selection.Range.HighlightColorIndex := 2
F11:: ComObjActive("Word.Application").Selection.Range.HighlightColorIndex := 3
F12:: ComObjActive("Word.Application").Selection.Range.HighlightColorIndex := 4

Possibly, to turn off the colour:

Code: Select all

F10::
F11::
F12::
oWd := ComObjActive("Word.Application")
InStr(A_ThisHotkey, "10") ? (vCol := 2)
: InStr(A_ThisHotkey, "11") ? (vCol := 3)
: InStr(A_ThisHotkey, "12") ? (vCol := 4) : 0
oWd.Selection.Range.HighlightColorIndex := vCol
oWd.Options.DefaultHighlightColorIndex := 0
oWd := ""
return

Cheers.