oWord = createobject("Word.application") oWord.documents.add oWord.visible = .T. select cReport nRow = 1 DO while NOT eof() oword.Selection.insertafter(cReport.stocknumber+chr(9)+alltrim(cReport.title)+chr(13)) SELECT cReport skip 1 ENDDO oword.Selection.MoveUp