It worked at first, now it frequently doesn't (but sometimes does) and I am at a loss as to why.
Note that currently the tester line at the top (Numpad1::MsgBox, hello) works, but not the highlighting.
Any ideas what I could fix? Thanks!
Code: Select all
#SingleInstance force
Numpad1::MsgBox, hello
#1::
!Numpad1::
oWord := ComObj("Word.Application") ; MS Word object
oWord.Selection.Range.HighlightColorIndex := 7 ;highlight color
return
!Numpad2::
oWord := ComObj("Word.Application") ; MS Word object
oWord.Selection.Range.HighlightColorIndex := 4 ;highlight color
return
!Numpad3::
oWord := ComObj("Word.Application") ; MS Word object
oWord.Selection.Range.HighlightColorIndex := 3 ;highlight color
return
!Numpad4::
oWord := ComObj("Word.Application") ; MS Word object
oWord.Selection.Range.HighlightColorIndex := 8 ;highlight color
return
!Numpad5::
oWord := ComObj("Word.Application") ; MS Word object
oWord.Selection.Range.HighlightColorIndex := 6 ;highlight color
return
!Numpad6::
oWord := ComObj("Word.Application") ; MS Word object
oWord.Selection.Range.HighlightColorIndex := 16 ;highlight color
return
;oWord.Selection.Range.HighlightColorIndex :=
;1 - black
;2 - blue
;3 - turquoise
;4 - green
;5 - pink
;6 - red
;7 - yellow
;8 - blank - no color
;9 - dark blue
;10 - teal
;11 - dark green
;12 - violet
;13 - dark red
;14 - dark yellow
;15 - gray 50%
;16 - gray 25%