Append to rtf doc issue

[temexcel]

This is probably something simple, but I just can't figure it out and researched till crazy.
Code copies text from a mainframe session then appends the data to a rtf document that is created. The error where it is crashing is below.

Thank you!

Set host = CreateObject("BZWhll.WhllObj") 'set object to bluezone mf app
ResultCode = host.Connect("A")

strFile = "k:\" & "ScreenPrint" & Replace(Date, "/", "_") & "-" & Replace(Time, ":", "_") & ".rtf"
ifn = FreeFile
Open strFile For Append As ifn

host.Copy 32
ifn.Selection.Paste <<<<< ERROR: Object requred
Close ifn

[mrice]

Suggest trying to paste into an empty workbook sheet and then printing, line by line, to the RTF file.

[temexcel]

Not printing the info screen shots, just appending to the file with the screen shots.

[mrice]

OK - you might want to paste the images into Word and then save the document as an RTF file.

[temexcel]

OK, but what is the fix to the code I posted?

[mrice]

It's difficult to test but hopefully something like

Please Login or Register  to view this content.

You will need to make a reference to the Microsoft Word Object Library (Tools in the VBA editor)

[temexcel]

Thank you! Needed to add a few more lines of code to adapt it to what I needed. But it works. I think the main thing I forgot was to add the word object library (I always forget that part, doh!).