CREATE cursor wtest (wf g) APPEND blank APPEND general wf from ("c:\my documents\test.doc") oform = createobject("form") WITH oform .addobject("olbW","Oleboundcontrol") .height = 420 .width = 620 WITH .olbW .top = 10 .left = 10 .height = 400 .width = 600 .controlsource = "wtest.wf" && Embedded word doc #DEFINE wdSeparateByTabs 1 #DEFINE wdTableFormatColorful1 8 #DEFINE wdSaveChanges -1 #DEFINE wdCollapseEnd 0 SELECT first_name, last_name ; from (home()+"samples\data\employee") ; into cursor myCursor Application.datatoclip("myCursor",_tally, 3) WITH .object .Content.select WITH .Application.Selection .Text = "Hello from VFP."+chr(13) .Collapse(wdCollapseEnd) && Go to end of selection .Text = _cliptext .ConvertToTable(wdSeparateByTabs,,,, ; wdTableFormatColorful1,,,,,,,.f.,,.f.) && Convert to table format Colorful 1 ENDWITH .saveas("c:\temp\savedfromgen.doc") && saved to disk .close(wdSaveChanges) ENDWITH * .visible = .t. && If you want to display the form ENDWITH * .Show && If you want to display the form ENDWITH *READ EVENTS && Start event processing - not needed if just process the word object and closeCetin