cbuilder生成word表格源码

Variant vWordApp, vTable, vCell; 
     try 
     { 
         vWordApp = Variant::CreateObject("Word.Application"); 
     } 
     catch(...) 
     { 
         MessageBox(0, "启动 Word 出错, 可能是没有安装Word.", 
                 "DBGrid2Word", MB_OK | MB_ICONERROR); 
         vWordApp = Unassigned; 
         return; 
     } 
     // 隐藏Word界面 
     vWordApp.OlePropertySet("Visible", false); 
     // 新建一个文档 
     vWordApp.OlePropertyGet("Documents").OleFunction("Add"); 
     // 
     Variant vSelect = vWordApp.OlePropertyGet("Selection"); 
     // 配置一下字体，大小 
     vSelect.OlePropertyGet("Font").OlePropertySet("Size", dbg->Font->Size); 
     vSelect.OlePropertyGet("Font").OlePropertySet("Name", dbg->Font->Name.c_str()); 
     // 要插入表格的行数 
     int nRowCount(dbg->DataSource->DataSet->RecordCount + 1); 
     nRowCount = nRowCount  < 2? 2: nRowCount; 
     // 要插入表格的列数 
     int nColCount(dbg->Columns->Count); 
     nColCount = nColCount  < 1? 1: nColCount; 
     // 在Word文档中插入和DBGrid行数列数基本相同的一个表格 
     vWordApp.OlePropertyGet("ActiveDocument").OlePropertyGet("Tables") 
         .OleProcedure("Add",