Use VBA to activate JavaScript checkbox function in IE6?

[Ed]

I'm writing a VBA macro in Word 2003 that finds and manipulates a web
page (Win XP, IE6 sp2). I am having trouble with a checkbox. I can
find the checkbox and make it checked, but I can't figure out how to
activate the function connected to the OnClick event. Would anyone be
able to help me out here, please?

Thanks.
Ed

[scripts.contact]

Ed wrote:

I'm writing a VBA macro in Word 2003 that finds and manipulates a web
page (Win XP, IE6 sp2). I am having trouble with a checkbox. I can
find the checkbox and make it checked, but I can't figure out how to
activate the function connected to the OnClick event. Would anyone be
able to help me out here, please?

checkboxElement .onclick()

[Ed]

On Jun 19, 4:55 pm, "scripts.contac t" <scripts.cont.. [e-mail]>
wrote:

Ed wrote:

I'm writing a VBA macro in Word 2003 that finds and manipulates a web
page (Win XP, IE6 sp2). I am having trouble with a checkbox. I can
find the checkbox and make it checked, but I can't figure out how to
activate the function connected to the OnClick event. Would anyone be
able to help me out here, please?

checkboxElement .onclick()

I tried
objCB.checkboxE lement.onclick( )
and
objCB.onclick()
and VBA kept giving me an error message that it expects an = after the
expression.
So I tried
objCB.onclick() = "selectAllCheck boxes"
which is the name of the function called by the onClick event, and
still nothing happened. (Checking this one box activates a function
which checks all boxes on the page.)

Here's what I've got so far:
Dim objCB
Set objCB = docIE.getElemen tById("selectAl lCB")
objCB.Checked = True ' This does check the box, but only this box.
' None of these activate the function to select all the boxes.
objCB.onclick = "selectAllCheck boxes"
Call
docIE.parentWin dow.execScript( "javascript:sel ectAllCheckboxe s",
"JavaScript ")
objCB.onclick() = "selectAllCheck boxes"

If you could drop-kick me a bit further down the road on this, I would
be very grateful.

Ed

[scripts.contact]

On Jun 20, 7:43 am, Ed <prof_ofw...@ya hoo.comwrote:

On Jun 19, 4:55 pm, "scripts.contac t" <scripts.cont.. [e-mail]>
wrote:

Ed wrote:

I'm writing a VBA macro in Word 2003 that finds and manipulates a web
page (Win XP, IE6 sp2). I am having trouble with a checkbox. I can
find the checkbox and make it checked, but I can't figure out how to
activate the function connected to the OnClick event. Would anyone be
able to help me out here, please?

checkboxElement .onclick()

I tried
objCB.checkboxE lement.onclick( )
and
objCB.onclick()
and VBA kept giving me an error message that it expects an = after the
expression.
So I tried
objCB.onclick() = "selectAllCheck boxes"
which is the name of the function called by the onClick event, and
still nothing happened. (Checking this one box activates a function
which checks all boxes on the page.)

Here's what I've got so far:
Dim objCB
Set objCB = docIE.getElemen tById("selectAl lCB")
objCB.Checked = True ' This does check the box, but only this box.
' None of these activate the function to select all the boxes.
objCB.onclick = "selectAllCheck boxes"
Call
docIE.parentWin dow.execScript( "javascript:sel ectAllCheckboxe s",
"JavaScript ")
objCB.onclick() = "selectAllCheck boxes"

If you could drop-kick me a bit further down the road on this, I would
be very grateful.

Why dont you write your own VB function to check all checkboxes. try
this:
Set checks=document .getelementsbyt agname("input")
for each check in checks
if check.type="che ckbox" then check.checked=t rue
next
OR try this if you have to use the selectAllCheckb oxes function:
docIE.parentWin dow.location.hr ef="javascript: selectAllCheckb oxes()"

OR
docIE.parentWin dow.execScript( "javascript:sel ectAllCheckboxe s()","JavaScrip t")

OR
Dim objCB
Set objCB = docIE.getElemen tById("selectAl lCB")
objCB.Checked = True
objCB.onclick

[Ed]

On Jun 20, 7:02 am, "scripts.contac t" <scripts.cont.. [e-mail]>
wrote:

On Jun 20, 7:43 am, Ed <prof_ofw...@ya hoo.comwrote:

>>snip<<

OR
Dim objCB
Set objCB = docIE.getElemen tById("selectAl lCB")
objCB.Checked = True
objCB.onclick

That was it! So simple that I couldn't see it. Thank you very much!

Ed