find doc
 

Dim WRDAPP, WRDDOC
Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("A:\card.doc")
Knowing file is in location. Why do I get cannot find?
Have tried many examples with no luck
Want to build a macro that will open a word doc (card.doc)
If can find start can adjust. Just not good as starter. Old dog learning new
tricks.

find doc
 

Curt,
Your code work if the file exist, otherwise err.number=5174.

You sure the A drive (floppy ?) is accessible and has that file name present
?

You can add a
WRDAPP.Visible = True
to see what word is doing/showing.

NickHK

"Curt" wrote in message
...
Dim WRDAPP, WRDDOC
Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("A:\card.doc")
Knowing file is in location. Why do I get cannot find?
Have tried many examples with no luck
Want to build a macro that will open a word doc (card.doc)
If can find start can adjust. Just not good as starter. Old dog learning
new
tricks.

find doc
 

It looked at A and gave same error try a diff name etc
What I want to acomplish is open this file to edit so can cut and paste back
into excel for sorting. I am useing 2000 if that has any bearing.

"NickHK" wrote:

Curt,
Your code work if the file exist, otherwise err.number=5174.

You sure the A drive (floppy ?) is accessible and has that file name present
?

You can add a
WRDAPP.Visible = True
to see what word is doing/showing.

NickHK

"Curt" wrote in message
...
Dim WRDAPP, WRDDOC
Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("A:\card.doc")
Knowing file is in location. Why do I get cannot find?
Have tried many examples with no luck
Want to build a macro that will open a word doc (card.doc)
If can find start can adjust. Just not good as starter. Old dog learning
new
tricks.

find doc
 

Think I found problem file is tied to wkbook for a mail merge

"NickHK" wrote:

Curt,
Your code work if the file exist, otherwise err.number=5174.

You sure the A drive (floppy ?) is accessible and has that file name present
?

You can add a
WRDAPP.Visible = True
to see what word is doing/showing.

NickHK

"Curt" wrote in message
...
Dim WRDAPP, WRDDOC
Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("A:\card.doc")
Knowing file is in location. Why do I get cannot find?
Have tried many examples with no luck
Want to build a macro that will open a word doc (card.doc)
If can find start can adjust. Just not good as starter. Old dog learning
new
tricks.

find doc
 

still getting same error? Made a new file to be sure same results. Yes file
is there don't know where to go next

"NickHK" wrote:

Curt,
Your code work if the file exist, otherwise err.number=5174.

You sure the A drive (floppy ?) is accessible and has that file name present
?

You can add a
WRDAPP.Visible = True
to see what word is doing/showing.

NickHK

"Curt" wrote in message
...
Dim WRDAPP, WRDDOC
Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("A:\card.doc")
Knowing file is in location. Why do I get cannot find?
Have tried many examples with no luck
Want to build a macro that will open a word doc (card.doc)
If can find start can adjust. Just not good as starter. Old dog learning
new
tricks.

find doc
 

last shot my full code error still cannot find file
Sub word()

Dim WRDAPP, WRDDOC
Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("A:\desc.DOC")
'Or for a new doc:
Set WRDDOC = WRDAPP.Documents.Add

WRDAPP.Visible = True
WRDAPP.Quit

End Sub


"NickHK" wrote:

Curt,
Your code work if the file exist, otherwise err.number=5174.

You sure the A drive (floppy ?) is accessible and has that file name present
?

You can add a
WRDAPP.Visible = True
to see what word is doing/showing.

NickHK

"Curt" wrote in message
...
Dim WRDAPP, WRDDOC
Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("A:\card.doc")
Knowing file is in location. Why do I get cannot find?
Have tried many examples with no luck
Want to build a macro that will open a word doc (card.doc)
If can find start can adjust. Just not good as starter. Old dog learning
new
tricks.

find doc
 

Curt,
Which error (number & description) are you getting ?

NickHK

"Curt" wrote in message
...
still getting same error? Made a new file to be sure same results. Yes
file
is there don't know where to go next

"NickHK" wrote:

Curt,
Your code work if the file exist, otherwise err.number=5174.

You sure the A drive (floppy ?) is accessible and has that file name
present
?

You can add a
WRDAPP.Visible = True
to see what word is doing/showing.

NickHK

"Curt" wrote in message
...
Dim WRDAPP, WRDDOC
Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("A:\card.doc")
Knowing file is in location. Why do I get cannot find?
Have tried many examples with no luck
Want to build a macro that will open a word doc (card.doc)
If can find start can adjust. Just not good as starter. Old dog
learning
new
tricks.

find doc
 

Curt,
Yes, that's what I get for wrong filename/path.
Sure the filename's correct ?
And you have permission to read that folder ?

NickHK

"Curt" wrote in message
...
useing excel 2000 run time error 5174
Think I may change direction and try to go to sheet 2 enlarge a cell then
copy back to sheet 1.
Thanks for your concern It is a asset to have people who are willing to
help
Thanks
Curt

"NickHK" wrote:

Curt,
Which error (number & description) are you getting ?

NickHK

"Curt" wrote in message
...
still getting same error? Made a new file to be sure same results. Yes
file
is there don't know where to go next

"NickHK" wrote:

Curt,
Your code work if the file exist, otherwise err.number=5174.

You sure the A drive (floppy ?) is accessible and has that file name
present
?

You can add a
WRDAPP.Visible = True
to see what word is doing/showing.

NickHK

"Curt" wrote in message
...
Dim WRDAPP, WRDDOC
Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("A:\card.doc")
Knowing file is in location. Why do I get cannot find?
Have tried many examples with no luck
Want to build a macro that will open a word doc (card.doc)
If can find start can adjust. Just not good as starter. Old dog
learning
new
tricks.

find doc
 

found out some how code was adding .doc.doc to file names
Thanks

"NickHK" wrote:

Curt,
Yes, that's what I get for wrong filename/path.
Sure the filename's correct ?
And you have permission to read that folder ?

NickHK

"Curt" wrote in message
...
useing excel 2000 run time error 5174
Think I may change direction and try to go to sheet 2 enlarge a cell then
copy back to sheet 1.
Thanks for your concern It is a asset to have people who are willing to
help
Thanks
Curt

"NickHK" wrote:

Curt,
Which error (number & description) are you getting ?

NickHK

"Curt" wrote in message
...
still getting same error? Made a new file to be sure same results. Yes
file
is there don't know where to go next

"NickHK" wrote:

Curt,
Your code work if the file exist, otherwise err.number=5174.

You sure the A drive (floppy ?) is accessible and has that file name
present
?

You can add a
WRDAPP.Visible = True
to see what word is doing/showing.

NickHK

"Curt" wrote in message
...
Dim WRDAPP, WRDDOC
Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("A:\card.doc")
Knowing file is in location. Why do I get cannot find?
Have tried many examples with no luck
Want to build a macro that will open a word doc (card.doc)
If can find start can adjust. Just not good as starter. Old dog
learning
new
tricks.