Problem with OLE and Word format!

Hi all, I'm using the OLE component to change a Word Document
then pass the contents of the OLE object to a new Word Document and then send it to the printer as a postscript file.

The problem is that the content on the OLE object is saved on the Word Document as in the format of the OLE object. Not like the contents where originaly. How do I keep the format of the OLE object that I pass to word. I need the format to start with in rich text format to do string conparisions. Any idea.

p_WrdApp.Documents.Add

OLE1.Format = OLE1.ObjectAcceptsFormat(1)

p_WrdApp.Selection.TypeText OLE1.DataText

p_WrdApp.PrintOut , True, , "c:\test.prn", , , , , , , True

Thanks in advance!