Openning a Word Document

Hi All,

The following is opening a particular xls file
Sub chartsheet_onclick()
call OpenWorkbook("d:/My Documents/XYZ.xls")
End Sub

Sub OpenWorkbook(strLocation)

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = true
objExcel.Workbooks.Open strLocation
objExcel.UserControl = true
objExcel.Sheets("sheet1").Visible = True
End Sub

So how do U open a word document e.g. XYZ.doc ?

Quite similar to opening Excel

Sub OpenDoc(strLocation)

set d = CreateObject("Word.Application")
d.Visible = true
d.Documents.Open strLocation

End Sub


Satish