COM -> MS Word -> Highlight Selection

Marker

Guests

Last active:
Joined: --

This is my MS Word macro in VB:

Options.DefaultHighlightColorIndex = wdYellow
Selection.Range.HighlightColorIndex = wdYellow

How to translate this in AHK? I tried something like this, but it doesn't work...

wdYellow := 7	; http://msdn.microsoft.com/en-us/library/bb237561.aspx

COM_Init()
Word:=COM_GetActiveObject("Word.Application")
HighlightColor := COM_Invoke(Word,"Options.DefaultHighlightColorIndex",wdYellow)
COM_Invoke(Word,"Selection.Range.HighlightColorIndex",HighlightColor)
COM_Release(Word)
COM_Term()

Thanks in advance.

- Posted 17 May 2010 - 02:01 PM

jethrow

Moderators
2854 posts

Last active: May 17 2017 01:57 AM
Joined: 24 May 2009

Nice try :wink: - minor detail:

wdYellow := 7   ; http://msdn.microsoft.com/en-us/library/bb237561.aspx 

COM_Init() 
Word:=COM_GetActiveObject("Word.Application") 
COM_Invoke(Word,"Options.DefaultHighlightColorIndex[color=red]=[/color]",wdYellow) 
COM_Invoke(Word,"Selection.Range.HighlightColorIndex[color=red]=[/color]",[color=red]wdYellow[/color]) 
COM_Release(Word) 
COM_Term()

- Posted 17 May 2010 - 02:19 PM

Marker - [Solved]

Guests

Last active:
Joined: --

Thank you!

[Solved]

- Posted 17 May 2010 - 02:40 PM

sinkfaze

Moderators
6367 posts

Last active: Nov 30 2018 08:50 PM
Joined: 18 Mar 2008

Alternatively:

COM_Init(), Word :=	COM_GetActiveObject("Word.Application") 
COM_Invoke(Word,"Selection.Range.[color=red]Shading.BackgroundPatternColorIndex[/color]",wdYellow) 
COM_Release(Word), COM_Term()

- Posted 17 May 2010 - 02:51 PM

Helpful Links
Recommended: AutoHotkey Boards
Tutorial for Newbies
Quick Search for Autohotkey|Beginner's RegEx Tutorial|Command Object Functions
COM Object Reference|COM - Basic Webpage Controls|Acc Library

Marker [Solved]

Guests

Last active:
Joined: --

sinkfaze - nice alternative

jethrow - COM_Invoke(Word,"Options.DefaultHighlightColorIndex=",wdYellow) this line is not necessary. Code below works

wdYellow := 7   ; http://msdn.microsoft.com/en-us/library/bb237561.aspx
COM_Init()
Word:=COM_GetActiveObject("Word.Application")
COM_Invoke(Word,"Selection.Range.HighlightColorIndex=",wdYellow)
COM_Release(Word)
COM_Term()

- Posted 17 May 2010 - 08:12 PM

Sign In