ole=createobject("Word.application")
 ole.visible=.T.
 bb=GETFILE('doc')
 aa=ole.Documents.open(bb)
*!*  input "输入表格的行数:" to iRow
*!*  input "输入表格的列数:" to icol

    dd=''
    *dd=CHR(13)+CHR(10)
    *dd=CHR(10)+CHR(13)

  
   
 FOR i=2 TO  aa.tables.item(1).Rows.count&&iRow
   
    SELECT  xsinfo
    APPEND BLANK   
    
     FOR  j=1 TO FCOUNT()
        sf=fields(j)  
        REPLACE &sf  WITH aa.tables.item(1).Cell(i,j).range.text
       
        sv=&sf
        DO while AT(dd,sv)>0
           sv=STUFF(sf,AT(dd,sv),LEN(dd),'')
        ENDDO
       
        REPLACE &sf WITH sv
       
       
     ENDFOR
    
       
    ?RECNO()
 EndFor  

 aa.close
 ole.quit

SET SAFETY ON
SET TALK ON