get file not found have changed file name numerous times to no avail.
reloaded office 2000 code is good does anyone have an idea as to why it wont
find file.
this is code I am useing files are in folder opens yearly fine copied code
changed file name and no matter wont find file
Stumped

Private Sub optionbutton35_Click()
OptionButton35.Value = False
Dim Word As New Word.Application
Dim WordDoc As Word.Document
Word.Visible = True
Set WordDoc = Word.Documents.Open("\parade\yearly.doc")
End Sub
Private Sub Optionbutton36_Click()
OptionButton36.Value = False
Dim Word As New Word.Application
Dim WordDoc As Word.Document
Word.Visible = True
Set WordDoc = Word.Documents.Open("\parade\this.doc")
End Sub

try it this way

Dim wd As Word.Application
Dim doc As Word.Document
Set wd = New Word.Application
wd.Visible = True
Set doc = wd.Documents.Open("C:\yourfolder\yourdoc.doc")

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Curt" wrote in message
...
get file not found have changed file name numerous times to no avail.
reloaded office 2000 code is good does anyone have an idea as to why it
wont
find file.
this is code I am useing files are in folder opens yearly fine copied code
changed file name and no matter wont find file
Stumped

Private Sub optionbutton35_Click()
OptionButton35.Value = False
Dim Word As New Word.Application
Dim WordDoc As Word.Document
Word.Visible = True
Set WordDoc = Word.Documents.Open("\parade\yearly.doc")
End Sub
Private Sub Optionbutton36_Click()
OptionButton36.Value = False
Dim Word As New Word.Application
Dim WordDoc As Word.Document
Word.Visible = True
Set WordDoc = Word.Documents.Open("\parade\this.doc")
End Sub

went in and copied file from properties still says is not valid. Have noticed
seems to open word but not the file. after debug word is open with a brown
screen this is what I copied from properties.
Set doc = wd.Documents.Open _
("C:\Documents and Settings\Curtiss A.
Greer\Desktop\2007\2007\Parade\next.doc")

"Don Guillett" wrote:

try it this way

Dim wd As Word.Application
Dim doc As Word.Document
Set wd = New Word.Application
wd.Visible = True
Set doc = wd.Documents.Open("C:\yourfolder\yourdoc.doc")

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Curt" wrote in message
...
get file not found have changed file name numerous times to no avail.
reloaded office 2000 code is good does anyone have an idea as to why it
wont
find file.
this is code I am useing files are in folder opens yearly fine copied code
changed file name and no matter wont find file
Stumped

Private Sub optionbutton35_Click()
OptionButton35.Value = False
Dim Word As New Word.Application
Dim WordDoc As Word.Document
Word.Visible = True
Set WordDoc = Word.Documents.Open("\parade\yearly.doc")
End Sub
Private Sub Optionbutton36_Click()
OptionButton36.Value = False
Dim Word As New Word.Application
Dim WordDoc As Word.Document
Word.Visible = True
Set WordDoc = Word.Documents.Open("\parade\this.doc")
End Sub