COM Word highlighting toggle help

[robinson]

Hi, noob here.
I'm currently using this to change any word yellow:

Code: Select all

NumpadAdd:: {
	; SendEvent("!+h")   ; highlight
	w := ComObjActive("Word.Application")
	if (SubStr(w.Selection.Range.Text, -1) = ' ')                                  ; 
		w.Selection.SetRange(w.Selection.Range.Start, w.Selection.Range.End - 1)   ; these two lines deselect the trailing space
	w.Selection.Range.HighlightColorIndex := 7  ; yellow
	sound_pop()
	w.selection.collapse(0)
}

Can someone modify this so that it's a yellow/no colour toggle?
Thanks!

[boiler]

Code: Select all

NumpadAdd:: {
	; SendEvent("!+h")   ; highlight
	w := ComObjActive("Word.Application")
	if (SubStr(w.Selection.Range.Text, -1) = ' ')                                  ; 
		w.Selection.SetRange(w.Selection.Range.Start, w.Selection.Range.End - 1)   ; these two lines deselect the trailing space
	w.Selection.Range.HighlightColorIndex := w.Selection.Range.HighlightColorIndex = 7 ? 0 : 7  ; 7 = yellow
	sound_pop()
	w.selection.collapse(0)
}

[robinson]

@boiler Beautiful. Thanks!