Author:	ahmed
Category:	Miscellaneous
Difficulty:	Beginning

Version Compatibility:

Visual Basic 6

More information: This article shows how to use OLE automation by creating a new word document and inserting content in the newly created document.

This code has been viewed 69510 times.

How to use OLE automation?

Many beginners start developing programs in VB. They hear about OLE, Automation, ActiveX, COM, etc. but they are not aware of all these technologies. If you are a beginner and you want to know more about OLE, then you should read this article. It will help you get started writing code using OLE automation capabilities.

In this program, we'll use Word object. We'll use two objects, one of the Word Application class and one of the Word Document class. We'll open the Word Application and a document. User will be able to save the document. Follow the steps below to create the application:

Start a new EXE project. Select Microsoft Word 9.0 object library from the references dialog box. Remember, you should have Word instance on your system. Add a new module to the project. In the module's general declarations section, add the following code:

Public objapp as new word.application
Public objdoc as object

Open the project's form and add four buttons to the form. Buttons are:

1. Launch
2. Save
3. Close
4. Exit

Private sub cmdLaunch_click()

If Not(objdoc is nothing) then 
	msgbox "Application already running" 
	exit sub
End if

objapp.visible=true

'Add a document to the application

Set objdoc:objapp.documents.add()

'Write some text in the document
 
objdoc.content = "This is my first OLE application"

End Sub

Now, let's add code to the save button:

     
Private Sub cmdSave_click()

If objDoc is nothing then

	msgbox "Application not running"
else
       objdoc.Save
End if
End sub

Private Sub cmdClose-Click()
   If objDoc is nothing then
       Insbu"Application not running"
   else
     objApp.Quit
     Set objDoc:Nothing
     Set objApp:Nothing
End if
End Sub

             Set objDoc=Nothing
             Set objApp=Nothing


Private Sub cmdExit_Click()

     If objdoc is nothing then
         Unload me
         end
     else
          msgbox "Please close application first"
    End if
End Sub

Summary

This article shows you how to use OLE automation. The article shows how to create a new Word document from the VB environment. We have used two classes, Application and Document class, to accomplish the task of creating a new Word document.