On way:

Option Explicit
Sub testme01()

Dim oWord As Object
Dim myWordDocument As String
Dim testStr As String

myWordDocument = "c:\test.txt"

testStr = ""
On Error Resume Next
testStr = Dir(myWordDocument)
On Error GoTo 0
If testStr = "" Then
MsgBox myWordDocument & " doesn't exist"
Exit Sub
End If

On Error Resume Next
Set oWord = GetObject(, "Word.Application")
If Err Then
Set oWord = CreateObject("Word.Application")
End If

oWord.Visible = True
oWord.Documents.Open myWordDocument

End Sub

steve wrote:

thanks 4 posting

i tried what you said and it did not work

the version of xl im using is 97,

i hit the object browser and could not find documents in
their. pls help me

-----Original Message-----
ChangeFileOpenDirectory "C:\"
Documents.Open FileName:="RESETLOG.TXT",
ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False,
PasswordDocument:="", _
PasswordTemplate:="", Revert:=False,
WritePasswordDocument:="", _
WritePasswordTemplate:="",
Format:=wdOpenFormatAuto



-----Original Message-----
how do i open a txt file in word using vba?

file name and path is C:\Test.txt
.

.


--

Dave Peterson