//导出Wordprocedure TFrm_Computing.ExportWord;varwordApp, WordDoc, WrdSelection, wrdtable, wrdtable1, cell: variant;strAdd: string;wdPar,wdRange:OleVariant;iCol, iRow, I, J: Integer; begin trywordApp := CreateOleObject('Word.Application');exceptApplica