EmersonH.Com

Private Sub Command1_Click()
Dim appWord As Word.Application
Dim wrdDoc As Word.Document
Dim strFileName As String
strFileName = "D:\Articles\Title.doc"
Set appWord = New Word.Application
Set wrdDoc = appWord.Documents.Open(strFileName)
MsgBox wrdDoc.Path & "\" & wrdDoc.Name
wrdDoc.Close False
appWord.Quit
Set wrdDoc = Nothing
Set appWord = Nothing
End Sub