Current Help System: PC-DMIS BASIC (View Core Help)

#### CreateObject Example

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 " Vender Name: "

word6.Bold 1

name = "Some Body"

word6.Insert name

word6.Bold 0

word6.InsertPara

word6.Insert " Vender Address:"

word6.InsertPara

word6.Insert " Vender Product:"

word6.InsertPara

word6.InsertPara

word6.Insert "Dear Vender:"

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

Vender Name: Client Name

Vender Address:

Vender Product:

Dear Vender:

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.