Office Automation

[raju_deka]

Hi!
I am writing an application that will identify Save and Close all editable applications running on the PC like Word, Excel, PowerPoint etc. on the click of a command button. followinf is the code for identifying and saving MS Word:-

Do While (FindWindow("OpusApp", vbNullString)) <> 0
WinWnd1 = FindWindow("OpusApp", vbNullString)
ShowWindow WinWnd1, SW_SHOWNORMAL
Dim x As Word.Application
Set x = GetObject(, "Word.Application")
AppActivate "Microsoft Word"
x.ActiveDocument.SaveAs "C:\Word" & i & ""
x.Quit
Set x = Nothing
i = i + 1 'i is declared before as a static variable
Loop

This codes works fine if one or any number of Word Application (SDI) is opened. However if only one Word is opened and more than one document (MDI) is opened on that Word application then one document is saved and than the dialog box asking for saving the application popup and asks for file name. I want that it the dialog box shouldn't appear and it should save those MDI documents with different file names.

Anyone please help me .....

[alex_read]

Look up the "Documents" collection in the word vba help file:

For Each aDoc In Documents
   If aDoc.Saved = False Then aDoc.Save
Next aDoc

For the second part, the following will supress any messageboxes from being shown to the user whilst the code excecutes, just remember to set this back to true at the end of the procedure!

word.Application.DisplayAlerts = false

[raju_deka]

Hi!
Thankyou for the help. Now I want to save PowerPoint, Excel etc. in the similar way. What "For.... Each.." should I use for Power Point and Excel? I have used the following:-

For Excel I used : For Each Workbook In x.Workbooks , which is working fine but looses one excel document if I open more than one document.

Power Point I used : For Each Presentation In x.Presentations
This code is not working atall.

Please suggest me how to proceed.

Regds,

Raju Deka

[alex_read]

The workbooks item is a collection, this means you can take the count of the collection items and loop through them this way...

Dim intCounter As Integer
 
For intCounter = 1 To Workbooks.Count
    Workbooks(intCounter).Save
    Workbooks(intCounter).Close
Next intCounter

[alex_read]

In powerpoint, it looks as though there's a presentations collection so this code should work also:

Dim intCounter As Integer
 
For intCounter = 1 To Presentations.Count
    Presentations(intCounter).Save
    Presentations(intCounter).Close
Next intCounter

[raju_deka]

Hi! Thanks for the codes. It is working fine except if you open more documents(>3), it saves only the odd numbered documents and looses even numbered documents. So I removed the
"Presentations(intCounter).Close" part and putting another while loop at the outside. Now it is working perfectly fine.

Now I want to save "Outlook" , "Binder" etc. What should I use in "For.. Each".
Waiting for your reply...

[alex_read]

To be honest I have no idea!

If you go into the code window/ide and type the following:

Outlook.application.

or Binder.application

you'll have access to all the properties & methods the application object contains. When you type that last dot after the word application above, scroll down the list until you see something which looks like a collection (such as documents or worksheets etc.) & try this in a for....each loop.

[raju_deka]

Hi!
First I included the reference and did it like that only, but couldn't find anything favourable so that I can activate and save a document like Word or excel. I don't have any books so that I can refer automation or MSDN also doesn't have the examples I am looking for. If you can please suggest me something....

[alex_read]

For Outlook it looks as though the windows are termed "Explorers" & are held in an Explorers collection, try this one:

Dim intCounter As Integer
 
For intCounter = 1 To Explorers.Count
    Explorers(intCounter).Save
    Explorers(intCounter).Close
Next intCounter

[alex_read]

For the Binder application, it looks as though the collection is termed "Section". I'm not sure how to code this one so I'd advise you to perform a search on the www.msdn.microsoft.com site for binder and section collection together...

[raju_deka]

Hi!
Thanks for the codes. I have solved most of my office automation problems with your help. Now I want to save non office documents like Notepad, Wordpad, Paint etc. I have done all this through APIs and "Sendkey" function and are working fine. Now I want to disable the keyboard(Physical) so that when my software is saving documents with "Sendkeys" function user shouldnot be able to edit any document by keyboard. Otherwise my software fails to save some documents. Can you suggest me some API or function to disable the physical keyboard.

[alex_read]

Hiya raju,

I'm not sure off the top of my head on this one, sorry.

If you could you post this as a new question on the forums, someone else should be able to help you for this part ...