Comments on: Controlling When VBScript Events Are Handled

By: Harold Little

Harold Little — Wed, 22 Jul 2009 13:32:45 +0000

I did remove the “On” in Wd_OnQuit. I can receive the Quit event.
I can not catch the “BeforeDucumentPrint” event. It does appear if the event needs to pass params, I can not catch it.

By: webJose

webJose — Tue, 21 Jul 2009 16:18:27 +0000

Oops, forgot the tracking as I’m interested in knowing if you succeed.

By: webJose

webJose — Tue, 21 Jul 2009 16:16:38 +0000

Harold:

See http://msdn.microsoft.com/en-us/library/aa211873(office.11).aspx.

Try the sub header:

Sub objWD_DocumentBeforePrint(ByVal oDoc, ByRef Cancel)

instead of your header.

As for the quit event, shouldn’t it be:

Sub objWD_Quit

instead of using “OnQuit”?

By: Harold Little

Harold Little — Sun, 07 Jun 2009 13:34:55 +0000

””””””””””””””
‘ Attempting to trap the
‘ objWd_DocumentBeforePrint
‘ Event
””””””””””””””
‘
Dim sTo,sFrom,objWD,objDoc
‘
sTo = “John Jones” & vbcrlf & “1313 Miller St.”
sTo = sTo & vbcrlf & “Dover, De 19901″
sFrom = “Mike Jones” & vbcrlf & “3333 Miller St.”
sFrom = sFrom & vbcrlf & “Wilmington, De 19954″
‘
‘
Set objWD = WScript.CreateObject(”Word.Application”,”objWD_”)
Set objDoc = objWD.Documents.Add
Set Env = objWD.ActiveDocument.Envelope
Env.Insert ,sTo,,,sFrom

objWD.windowstate = 2
objWD.PrintPreview = true

WScript.ConnectObject objWD, “objWD_”
WScript.ConnectObject objDoc, “objDoc_”

objWD.Visible = True
objWD.windowstate = 0

Do While objWD.Visible
WScript.Sleep 200
If objWD.PrintPreview = False Then Exit Do
Loop

Do while objWD.BackgroundPrintingStatus > 0
WScript.Sleep 100
Loop

‘
objWD.windowstate = 2
WScript.Sleep 25
objWD.Quit 0

Set objDoc = Nothing
Set objWD = Nothing

””’ Object Events ””””

Sub objWD_DocumentChange
‘ Event Caught
MsgBox “The current document has been changed.”
End Sub

Sub objWD_DocumentBeforePrint
Cancel = True
Msgbox “BeforeDucumentPrint”,,”objWD_BeforeDucumentPrint”
Env.PrintOut
End Sub

Sub objWD_OnQuit
Msgbox “objWD_Quit”
WScript.Quit
End Sub

Thank you so much for assistance.
Harold

By: Nilpo

Nilpo — Sun, 07 Jun 2009 13:03:44 +0000

Not all events may be exposed through the scripting interface. Can you post the code you are trying so I can try it myself?

By: Harold Little

Harold Little — Sun, 07 Jun 2009 12:31:38 +0000

Using the example for WScript.ConnectObject objWord, “wd_”, I was able to trap the wd_DocumentChange event but unable to trp the WD_BeforeDucumentPrint event, using Vista32 and Word 2007. Several events including ws_OnQuit I am unable to catch, If you have a moment.
Thank you
Harold