Supress word warnings/messages 1

[GOSCO]

Hi, im writing a VBS script that prints all files in a folder using the relevant application.

Everything works ok though word docs are causing me a problem. I wanted to supress all warning messages when the file is opened. e.g read only and margin warnings etc.

Can this be done?

Set objWord = WScript.CreateObject("Word.Application")
objWord.Documents.Open objFile.Path
objWord.ActiveDocument.PrintOut
Wscript.Sleep(1000)
objWord.ActiveDocument.Close
objWord.Quit

 

[SkipVought]

Hi,

How about

Application.DisplayAlerts = 0

wdAlertsNone constant values is ZERO.


Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[PHV]

I'd try something like this:

Set objWord = WScript.CreateObject("Word.Application")
With objWord
  .DisplayAlerts = False
  .Documents.Open objFile.Path
  .ActiveDocument.PrintOut False
  .ActiveDocument.Close False
  .Quit
End With

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GOSCO]

Hi thanks can tell me what I need to add in the context of my code?

Ive tried to include but it doesn;t seem to work!

 

[PHV]

My suggestion was a replacement, not an addition.
Did you try it ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GOSCO]

Hi thats great, it seems to work well

Im iterating through a list of word docs, is this the most efficient way to do this. ie open word > print doc > close doc > close word.

Set objWord = WScript.CreateObject("Word.Application")
objWord.DisplayAlerts = False
objWord.Documents.Open objFile.Path
objWord.ActiveDocument.PrintOut False
Wscript.Sleep(1000)
objWord.ActiveDocument.Close False
objWord.Quit

 

[PHV]

I'd use something like this:

Set objWord = WScript.CreateObject("Word.Application")
With objWord
  .DisplayAlerts = False
  For Each objFile In ...
    .Documents.Open objFile.Path
    .ActiveDocument.PrintOut False
    Wscript.Sleep(1000)
    .ActiveDocument.Close False
  Next
  .Quit
End With

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GOSCO]

Ok thats slightly quicker. Thanks for your help.

Is there away to supress the "printing" dialogue box as it flashes for a second whilst it prints each document?

 

[TonyJollans]

Personally I would have thought it much quicker to instantiate Word once up front, and then use that one instance for all files. Also I'd be inclined to use the Print verb rather than code all the rest of the guff as well - but you would still have to suppress the dialogs.

Something like this (untested):

[blue]Set objWord = WScript.CreateObject("Word.Application")
For each objFile in objFolder.Items
    [green]' If Word File (whatever check you are using now)[/green]
        objFile.InvokeVerbex("Print")
    [green]' End If[/green]
Next objfile
objWord.Quit
Set objWord = Nothing[/blue]

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website

 

[GVF]

In Excel if you set DisplayAlerts = False, it is a permanent setting to the Help options of the office assistant. That is, it doesn't get set to "True" when the procedure ends (like ScreenUpdating does).

I'm not a Word guy but it looks to be the same in Word with the added fact that there are three possible values.

If you are going to have other people using the procedure on their own machines you might want to get the value first, then disable alerts, then reset alerts (at the end of the procedure) back to the user's original setting.
OldAlertValue = ObjWord.DisplayAlerts
OBjWord.DisplayAlerts = 0'
'other code
ObjWord.DisplayAlerts = OldAlertValue

Greg