Sure, it is possible, because oForm.myOle1.object represents the Word.Automation Document object and inherits its methods and properties. You can work with oForm.myOle1.object.Content.TEXT, and modify it as needed.
>Is it possible to add (merge) some lines of text at the bottom of the document to printout? If so, how can I do that?
>
>
>*Procedure YGeneral_PrintWord
>* assuming there is a table having General field lcfile and there is a WORD document, embedded
>
>use (your_table)
>Genfiedname="General_Field_Name"
>
>GO (appropriate_record_number)
>
>local oForm
>oForm = Createobject('_Form',Genfiedname)
>WITH oForm.myOle1
> IF .oleclass="Word.Document"
> * set the control size properly;
> * otherwise the document paper size may be not properly inherited.
> .width=600
> .height=800
> .object.Activate
> .object.PrintOut(0)
> ELSE
> ?"? OLeclass: ", .oleclass
> endif
>ENDWITH
>=oForm.Release()
>RETURN
>*-------------------------------------------------------------------
>Define Class _Form As Form
> PROCEDURE iNIT
> LPARAMETERS pGenFieldName
> this.addobject('myOLe1',"OleBoundControl")
> this.myole1.ControlSource = ALIAS()+'.'+pGenfieldName
> ENDPROC
>Enddefine
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only