>Cetin,
>
>I have only a single EMPLOYEE.dbf and don't need *.dbc in th cDSN, How can I
>modify your codes to insert two fields such as Empno, Name to export to WORD,
>in the line
> .range.insertdatabases(,,,cDSN,lcSQL) should be changed to accept only Empno,Name fields
>
>Please correct your code to do this.
>TIA
>Paul

use employee
lcTemp=sys(2015)+'.txt'
copy fields empno, name to (lcTemp) type csv
lnFields = 2
_ClipText = chrtran(FileToStr(lcTemp),'"','')
erase (lcTemp)
#define wdSeparateByCommas  2

oWordDocument=createobject("word.application") && Create word object
WITH oWordDocument
  .documents.add && New file
  WITH .ActiveDocument
    .Range.Paste
    .Range.ConvertToTable(wdSeparateByCommas,,lnFields)
  ENDWITH
  .visible = .t.
  .Activate
ENDWITH

Cetin