Word automation 1

[vbenlieva]

I use VFP 9.0
I create a word object, from an existing word document and I want to place some information in the document. In the program I have:

.....
objWord=CREATEOBJECT("Word.Application")
oDoc = objWord.Documents.Add("&mydoc")
*!* mydoc is the name of an existing word document
objWord.ActiveDocument.paragraphs[1].range.select()
objWord.Selection.TypeText('TO: ')
objWord.ActiveDocument.paragraphs[2].range.select()
objWord.Selection.TypeText('FAX:')
.....

When I execute the program.prg it works, but when I made an exe file it generated the following error:

"Member ACTIVEDOCUMENT does not evaluate to an object"

Where am I wrong?
Thanks in advance

 

[Mike Lewis]

Instead of using objWord.ActiveDocument, just use oDoc.

In other words:

objWord=CREATEOBJECT("Word.Application")
oDoc = objWord.Documents.Add(mydoc)
*!* mydoc is the name of an existing word document
oDoc.paragraphs[1].range.select()
objWord.Selection.TypeText('TO: ')
objWord.ActiveDocument.paragraphs[2].range.select()
objWord.Selection.TypeText('FAX:')

Not releated to your question, but I've also removed the macro expansion in the second line above -- just pass the document name as a variable.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[vbenlieva]

It doesn't work. It generated the error:
"ODOC is not an object"

 

[MarciaAkins]

It doesn't work. It generated the error:
"ODOC is not an object"

What is in the variable MyDoc? Does it have the fully qualified path name to the document? Does the document exist? Are there apac es in the file name? If there are, you need the macro expansion that Mike removed from your code.





Marcia G. Akins

http://www.TightlineComputers.com

 

[Mike Lewis]

vbenlieva,

Marcia's right. If the document name includes spaces, you will need the macro expansion after all (sorry, I should have remembered that).

Come to think of it, why are using the Add method to open the document? If you use the Open method instead, you will get a useful error message if the method fails, which is obviously what's happening here. That would also explain your original problem.

Try changing .Add to .Open and let us know what you see.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[vbenlieva]

In my variable MyDoc, I didn't have the full path.
When I changed with the correct path .... it works now!!!
Thanks
Cheers

 

[wgcs]

>> Marcia's right. If the document name includes spaces, you will need the macro expansion after all (sorry, I should have remembered that).

Why? The variable is being passed as a parameter, so macro expansion shouldn't be involved. It's possible that Word prefers to have quotes around the file name, in which case you could do this:

oDoc = objWord.Documents.Add( ["]+mydoc+["] )

I try to avoid macro expansion in every place that it isn't needed... it only obscures things, making debugging harder.


- Bill

Get the best answers to your questions -- See FAQ481-4875.

 

[Mike Lewis]

Bill,

The variable is being passed as a parameter, so macro expansion shouldn't be involved.

I must have been having a moment of senility. If the filename contains spaces, then of course it is better not to do macro expansion.

Thanks for putting us right.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk