error with automation code vfp -> word

[poeijer]

idea is to copy the content of poTemplateDoc to poWerkDoc.
using copy/paste. i use therefor the code below.

-------------------------------------
poTemplateDoc.content.range().copy
poWerkDoc.content.range().paste
-------------------------------------

when executing the above code I get the error:
Member RANGE does not evaluate to an object.

anyone got an idea? thanks.

 

[Mike Gagnon]

poeijer

This works for me:

cWordTemplate = GETFILE("dot","Get letter template","Use")
IF !EMPTY(cWordTemplate)
    oWord = CREATEOBJECT("word.application")
    oWord.Documents.OPEN(cWordTemplate)
    loTemplate=oWord.SELECTION
    loTemplate.WholeStory
    loTemplate.COPY
    loDocument=oWord.Documents.ADD()
    loSelection = oWord.SELECTION
    loSelection.Paste
ENDIF

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[poeijer]

thanks, i also managed to rewrite it with a simpler way.

poTemplateDoc.content.range().copy
poWerkDoc.content.range().paste

------>

range1 = poTemplateDoc.range()
range1.copy
range2 = poWerkDoc.range()
range2.paste

---------