How to close a Word Document with API

[csantos]

I,
How can i close a word document with API like 'PostMessage' or other, without close Microsoft Word?

[csantos]

Thanks, it works.
Just one more thing, using the ShellExecute how can i find the hwnd of the application i have launch.

[Clunietp]

Here is an easier way, it does not use the API:

Add a reference to Microsoft Word 8/9.0 object library

    Dim wd As Word.Application
    
    'get object
    Set wd = GetObject(, "Word.Application")
    
    If wd Is Nothing Then
        'error
        MsgBox "Can't Find WORD!!!"
    Else
        'close document
        wd.ActiveDocument.Close False
    End If

Tom

[csantos]

Thanks, but that way i now how to do.
I making an application that start the default application of a file. And for word i want to leave to word application open, i want just to close the document.
It's possible using the API?
Can someone help me or where can i found this type of information.

[Clunietp]

My code finds the existing instance of MS Word and closes the active document, while leaving Word open. Is that not what you wanted?

[csantos]

Yes, but, if i want to do the same for Excel i need another routine to treat that.
And i don't want that, I want with a simple routine treat word, excel... all office applications.
Thanks,

[Clunietp]

You would probably have to use FindWindow, then EnumChildWindows, then sendmessage WM_CLOSE to the child windows.....that may not take care of the "SAVE DOCUMENT?" dialogs though....