loWord  = CREATEOBJECT('Word.Application')
	 loDoc = m.loWord.Documents.Add('c:\temp\doc.dot')
	 loTable = m.loDoc.Tables(1)
	 InWordRowNum = 1
 SELECT licenz
DO WHILE !EOF('licenz') 
 		   IF m.loTable.Rows.Count < m.InWordRowNum THEN 
		      m.loTable.Rows.Add()
		   ENDIF 
		   m.loTable.Cell(m.InWordRowNum, 1).Range.Text = STR(RECNO('licenz'))
		   m.loTable.Cell(m.InWordRowNum, 2).Range.Text = licenz.cod
		   m.loTable.Cell(m.InWordRowNum, 3).Range.Text = ALLTRIM(licenz.name)
		   m.loTable.Cell(m.InWordRowNum, 4).Range.Text = DTOC((licenz.dat)
                           и т.д  .....
      		   InWordRowNum = m.InWordRowNum + 1
SELECT licenz
SKIP  
ENDDO 
 	m.loWord.visible = .T.