Using CreateObject - talking to Word

[DavidMark]

This should be a simple one for those in the know. My demo code below opens Word, makes it visible, types some text then quits. How do I quit without saving? I have looked under help for 'quit' in Word and tried everything that I can. Help!!


Function TryIt()
Dim MyWord As Object
Set MyWord = CreateObject("word.application&quot
MyWord.Documents.Add
MyWord.Visible = True
MyWord.Selection.TypeText Text:="Type some stuff"
MyWord.Application.Quit
Set MyWord = Nothing
End Function


Thanks in advance

Dave

 

[MikePP]

Dave

Try something like the following

Function TryIt()
Dim MyWord As Object
Dim MyDoc as word.document
Set MyWord = CreateObject("word.application&quot
Set MyDoc = MyWord.Documents.Add
MyWord.Visible = True
MyWord.Selection.TypeText Text:="Type some stuff"
MyDoc.saved = True
MyWord.Application.Quit
Set MyWord = Nothing
End Function

Hope this helps

sadcow

 

[DavidMark]

Hi sadcow (could do with a name here!),

I get an error saying 'Object doesn't support this property or method'

If I try 'MyWord.Application.Quit 0' it quits word without saving, which is what I want to do. Is this the correct way?

Dave

 

[mbiro]

Try:

Function TryIt()
Dim MyWord As Object
Set MyWord = CreateObject("word.application&quot
MyWord.Documents.Add
MyWord.Visible = True
MyWord.Selection.TypeText Text:="Type some stuff"
MyWord.Documents.Close (wdDoNotSaveChanges)
MyWord.Quit
Set MyWord = Nothing
End Function

 

[DavidMark]

Hi mbiro,

That doesn't work either. Access assumes that 'wdDoNotSaveChanges' is a variable. trying 'MyWord.Quit False' works, I can print the text and quit without saving. Passing false (or 0) seems the only way, since access can't appreciate Word constants. I think I will call it a day on this one. Anyone know of a good site covering automation?

Dave