CreateObject Function

CreateObject (class)

Creates an OLE automation object.

Sub Command1_Click ()

    Dim word6 As object

    Set word6 = CreateObject("Word.Basic")

    word6.FileNewDefault

    word6.InsertPara

    word6.Insert "Attn:"

    word6.InsertPara

    word6.InsertPara

    word6.InsertPara

    word6.Insert "          Vendor Name: "

    word6.Bold 1

    name = "Some Body"

    word6.Insert name

    word6.Bold 0

    word6.InsertPara

    word6.Insert "    Vendor Address:"

    word6.InsertPara

    word6.Insert "        Vendor Product:"

    word6.InsertPara

    word6.InsertPara

    word6.Insert "Dear Vendor:"

    word6.InsertPara

    word6.InsertPara

    word6.Insert "The letter you are reading was created with Cypress Enable."

    word6.Insert " Using OLE Automation Cypress Enable can call any other OLE _ enabled "

    word6.Insert "application.  Enable is a Basic Scripting Language for _ applications"

    word6.InsertPara

    word6.InsertPara

    word6.Insert "      Product Name: Cypress Enable"

    word6.InsertPara

    word6.Insert "      Company Name: Cypress Software Inc."

    word6.InsertPara

    word6.InsertPara

   MsgBox "You have just called Word 6.0 using OLE"

End Sub

Vendor Name: Client Name

Vendor Address:

Vendor Product:

Dear Vendor:

The letter you are reading was created with Cypress Enable.Using OLE Automation Cypress Enable can call any other OLE enabled application.  Enable is a Basic Scripting Language for applications

                    Product Name: Cypress Enable

                    Company Name: Cypress Software Inc.