Hi
I have done this differently:

Under Options|Tools... create one called
"Run script"

set command : cscript.exe
Arguments : $(FilePath)

Check : "Prompt for arguments" and "Redirect to output Window"
And choose "Active File only" under Save file before running this
tool"

I furthermore have assigned F5 (under Options|Keyboard...) to run
this tool.
This will runn your script and redirect your output to the output
pane (plus allow you to specify command line arguments).


Anders
--- In thecredit@yahoogroups.com, willie@a... wrote:
> I have modfied the "Save&Run" macro (that is available from the
> CREdit website), to allow it to display the output of the
> executed "script" in the output pane.
>
> To do this correctly I need to wait for the script to complete, and
I
> therefore use a loop which contains a "Sleep" to do this.
> Unfortunately though I can't seem to access the Sleep() method of
the
> implicit WScript object.
>
> The macro is listed below. Does anyone have any ideas what I am
> doing wrong?
>
> Thanks,
>
> Will
>
> ' Begin script listing
> Sub SaveAndRunScript
> Dim objExec
>
> ' change current dir to the active document's directory.
> Application.CurrentDirectory = ActiveDocument.Path
>
> 'Save Without Prompt only if file changed.
> If ActiveDocument.Saved = False Then ActiveDocument.Save
> ActiveDocument.FullName,False
>
> ' Write to output pane the name of the script that is being
> run
> Application.PrintToOutputWindow NOW() & " Starting " &
> ActiveDocument.FullName
>
> Set WshShell = CreateObject("Wscript.Shell")
>
> 'Put " around file name in case it contains spaces.
> Set objExec = WshShell.Exec("cscript.exe" & " " & chr(34) &
> ActiveDocument.FullName & chr(34))
>
>
> Do While objExec.Status = 0
> Sleep(100)
> 'WScript.Sleep(100) -- fails aswell
> Loop
>
> ' Write the scripts StdOut to the output pane
> Application.PrintToOutputWindow objExec.StdOut.ReadAll()
> Application.PrintToOutputWindow objExec.StdErr.ReadAll()
>
> End Sub