问题串烧啊，现考现卖，答对有奖啊！

Question

procedure TForm1.Button1Click(Sender: TObject);
var  appexcel,workbook,worksheet:variant;
begin
    try
        AppExcel:=createOLEobject('Excel.application')  as  _Application;
        AppExcel.visible:=false;
        workbook:=AppExcel.workbooks.open('c:\a.xls');
        worksheet:=workbook.worksheets[1];
        worksheet.Cells[1,1].NumberFormat  :=  '@';  // 按字符格式显示，不去掉前导的0
        worksheet.Cells[1,2].NumberFormat  :=  '0';  // 指定格式为数字
        worksheet.Cells[1,3].NumberFormat  :=  'dd/mm/yyyy';//指定日期格式
        worksheet.Cells[1,4].WrapText := True;  //自动换行
        worksheet.Cells[1,5].Font.Bold := True ;//字体加醋
        WorkBook.Save;
    finally
        WorkBook.Close;
        AppExcel.Quit;
        AppExcel:=Unassigned;
    end;end;不知道你的word文档是什么格式,不过我想肯定可以的！满意吗？

Answer 1

lastlove()，谢谢你回答了其中三个问题，但是word的那个问题应该是最难也是最重要的。希望能帮帮我，大家都来看看有没有解决方案啊~~！(说完，johnwesley双手合十，虔诚的向神灵祷告！)

Answer 2

你没有说清楚word是什么格式，你想取得什么信息！
如果是固定的表格，你想得到表格里面的东西，肯定可以的！
word里面也能对表格进行选取，操作，你可以试试用
wordApp.Tables.item(cellno).cell(i,j).range.text

Answer 3

Perfect right! I just want to handle the consistent table. But look over your comment, I still have some puzzle: if a document contain a few of tables. How can I do?? How to identify them?

Answer 4

try  tables.item（n）

Answer 5

I will have a try this night. thank you for your always help.

Answer 6

其实你可以去你的office 安装目录查找 vba*.* 文件；（比如：vbawrd9.chm,vbaxl9.chm...）,相信对你会有很大帮助！
我以前摆弄excel,outlook比较多，word没有怎么用过...
具体怎么还得你自己琢磨~~我写和几行代码：创建一个新文档，插入一个表格，并在表格里写‘hello’信息var
  S,Word, Doc, Table: OleVariant;
begin
  word:=CreateOleObject('Word.Application');//start word
  word.Visible:=false;  //set visible
  Doc:=Word.Documents.Add;  //add a new  document
  Doc := Word.ActiveDocument;  
  Doc.Tables.Add(Doc.Range(0, 2),4,4);  //add a  4×4 table
  Table := Doc.Tables.Item(1);    //  get table  index=1 
  Table.Cell(1, 1).Range.Text :='hello';  //set text
  doc.saveas('c:\a.doc');  //save
  doc.close;
  word.quit;
  word:=Unassigned;
end;