find doc

[Guest]

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.

 

[NickHK]

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

 

[Guest]

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.

 

[Guest]

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

 

[Guest]

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

 

[Guest]

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]

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

NickHK

 

[NickHK]

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

 

[Guest]

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