Word Doc in VBScript

[thebloke]

Guys

I'm playing around with this bit of code:

<script language="vbscript">
      Dim WordApp
      Dim WordDoc
      Dim WordPath
 
        Set WordApp = CreateObject("Word.application")
        Set WordDoc = WordApp.Documents.Add()
        set WordPath = Server.MapPath("C:\file.doc")
        
        WordDoc.Document.Open(WordPath)
        
        WordApp.Visible = true
        
        WordDoc.Document.Print()
        
        WordDoc.Document.Close
    
        Set WordDoc = Nothing
        Set WordApp = Nothing       
 
        </script>

Now, it launches winword.exe, but that's about it. What am I doing wrong?!

Peter

[si_the_geek]

The problem is that you are using "WordDoc.Document" rather than just "WordDoc" as you should be (as WordDoc is a document object).

[thebloke]

Changed it to WordDoc.Open("C:\file.doc") and the same thing happens.

[si_the_geek]

Ah wait, I'd not thought about that one enough! The code should be like this:

Dim WordApp
Dim WordDoc
Dim WordPath
 
  Set WordApp = CreateObject("Word.application")
  Set WordPath = Server.MapPath("C:\file.doc")
  Set WordDoc = WordApp.Documents.Open(WordPath)
        
  WordApp.Visible = true
 
  WordDoc.Print()  'I havent tested this line
  WordDoc.Close
    
  Set WordDoc = Nothing
  Set WordApp = Nothing

[thebloke]

Still no joy!

[si_the_geek]

Well is seems similar to the example in this FAQ thread, except for WordPath which may not have a valid path in it.

I would recommend commenting out the Print and Close lines for now, just to see if the document is actually opened (if not, check what WordPath contains).

Once that is ok, uncomment the Close line and test that. Then you can check the Print line, which I think may not be correct code.

edit: it's not correct, it should be PrintOut like this:

WordDoc.PrintOut BackGround:=False