I am trying to use OLE to place data in a Word document. Admittedly, I have taken the code from Bob Carten and Hank Huizinga. I want to thank them profusely. The data is all defined and I am trying to place the data in a Bookmark called NameAddress. This is the code thus far:

wordApp=OleCreateInstance("Word.Application")

nextHandle=OleGetProperty(wordApp,"DOCUMENTS")

OlePutProperty(wordApp,"VISIBLE",1)

documentHandle=OleCallMethod(nextHandle,"OPEN",MergeDocument)

Selection=OleGetProperty(wordApp,"SELECTION")

oMarks=oleGetProperty(documentHandle, "Bookmarks")

mcnt=oleGetProperty(oMarks, "COUNT")

oMark=OleCallMethod(oMarks, "ITEM", book)

bookmarkname=OleGetProperty(oMark, "Name")

x=OleCallMethod(oMark,"SELECT")

OlePutProperty(Selection, "TYPETEXT", NameAddress)

result=OleCallMethod(wordApp,"PRINTOUT",1)

OlePutProperty(wordApp,"DISPLAYSLERTS",0)

Quit=OleCallMethod(wordApp,"QUIT",0)

Everything runs fine until I try to "SELECT" the bookmark and apply data with "TYPETEXT". Can anybody tell me what I'm doing wrong?

Thanks,

Richard Richter

]]bookmarkname=OleGetProperty(oMark, "Name")

Should you be using this in any of the following code

Barry,

Thanks for your response. I'm not sure if I need it or not. It does return the name of the bookmark. My problem thus far is highlighting the bookmard so that I can place the text in the bookmark. The "SELECT" line returns a "" response and the bookmark is not highlighted on the word document.

Thanks,

Richard

]]It does return the name of the bookmark

So, have you tried changing the lines related to bookmark refence to this variable.

Im not sure why your code is not working but here is a section of code that I use all the time quite successfully.

oWrd=OleCreateInstance("Word.Application")

OlePutProperty(oWrd,'Visible', ShowWord)

oDocuments=oleGetProperty(oWrd, 'Documents')

oDoc=OleCallMethod(oDocuments, 'OPEN', targetfile)

oActiveDoc=OleGetProperty(oWrd, 'ActiveDocument')

Selection=OWrd-]Selection

* Walk the bookmarks

oMarks=oDoc-]Bookmarks

mcnt=oMarks-]count

for i=1 to mcnt

 oMark=oMarks-]Item(i)

 colname=oMark-]Name   

 convert @lower.case to @upper.case in colname

 locate colname in colnames using @fm setting pos then

 	  Val=ColData

    convert @vm to char(10) in val 

 end else

    val= '

 end     

 x=Omark-]Select()

 x=Selection-]TypeText(val)

next

Thanks for the help guys.

Barry,

Yes I tried that and every combination I could think of without results.

John,

I get an "Illegal expression encountered" when I try to compile "x=Omark-]Select()"

Needless to say, I'm totally confused. Any other ideas would be greatly appreciated.

Richard

Richard

"x=Omark-]Select()"

1. Is there Zero versus letter-O typo?

2. What happens if you use the syntax

 x=OleCallMethod(oMark, 'Select')

- Bob

View this thread on the Works forum...