Hi Steve
How about this? It uses late binding so you won't need any references to
the Word object library.
Public Sub OpenWordDocument(sDocFile As String, _
Optional fReadOnly As Boolean)
Dim oWordApp As Object
Dim oDoc As Object
On Error GoTo ProcErr
Set oWordApp = CreateObject("Word.Application")
Set oDoc = oWordApp.Documents.Open(sDocFile, ReadOnly:=fReadOnly)
oWordApp.Visible = True
ProcEnd:
Set oDoc = Nothing
Set oWordApp = Nothing
Exit Sub
ProcErr:
MsgBox "Cannot open " & sDocFile & VbCrLf & Err.Description
Resume ProcEnd
End Sub
