file not found stumped

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Curt - 25 Nov 2007 16:08 GMT

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

Reply to this Message

Don Guillett - 25 Nov 2007 16:34 GMT

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")

Signature

Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com

> 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
[quoted text clipped - 18 lines]
> Set WordDoc = Word.Documents.Open("\parade\this.doc")
> End Sub

Reply to this Message

Curt - 25 Nov 2007 20:19 GMT

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")

> try it this way
>
[quoted text clipped - 26 lines]
> > Set WordDoc = Word.Documents.Open("\parade\this.doc")
> > End Sub

Reply to this Message