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

## OLE Automation and Microsoft Word Example:

Sub OLEexample()

Dim word As Object

Dim myData As String

myData = 4 * Atn(1) ' Demonstrates Automatic type conversion

Set word = CreateObject("Word.Basic")

Word.AppShow

word.FileNewDefault

word.Insert "The following was computed in Cypress Enable: "

word.Bold 1 ' Show value in boldface

word.Insert myData

word.Bold 0

MsgBox "Done"

End Sub