急需DELPHI与WORD2000合作运用的源码或参考资料(300分)

本人现急需利用WORD2000来制作打印表格，
但不知道在DELPHI中如何对WORD2000的表格如何处理，
请各位大大帮帮忙多给点WORD处理方面的资料，越详细越好，
如果能提供OFFICE其他组件的运用更好！
分不够再加！
谢谢大家了！！

表格不懂了，
通过录制宏行不行？
这个贴子你看了么？
http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517

DELPHI的DEMO你看了吗？还有，这个论坛中有讨论EXCEL用法的，你可以搜索一下。

到www.playicq.com下一个操作word的源代码看看还有hubdog27的书里讲得太多了

哪有hubdog27的书呢？

我需要的是具体如何操作表格方面的代码！！麻烦大家帮帮我了！！

我可以控制Word里面的表。最好能把你需要的操作说的再详细一些。
我可以实现word中文字、图像、表格的创建、定位，行添加，栏目数据添加、替换等操作。
你可以参考一下Office里面有关编程方面的帮助，比较爽。
给你一些原码提示：
Mytable:= Mydoc.range.Tables.Item(TableNum);
//将Word指定表付给Mytable。
trow := Mytable.Rows.Count;
afterrow := mytable.Rows.last;
//Item(trow);
//取得最后一行
mytable.Rows.Add(afterrow);
mytable.Rows.First.Delete;
//删除第一行。
mytable.Rows.Last.Delete;
//删除最后一行。

天与地：
能给我你的EMAIL吗？
我把我的具体要求及文件发给你，或者你能再详细点说明，用什么组件及属性？
非常感谢你的帮助！！

jjb_xl@sohu.com
我的QQ：82854557

http://www.djpate.freeserve.co.uk/Automation.htm
Delphi与Word之间的融合技术：
http://www.delphibbs.com/delphibbs/dispq.asp?LID=737517
请看我回答的有关帖子。

首先：建一个Word文档，里面画一个表，两行，
|编号|负责人|科室|项目名称|
| | | | |
把生成的Word文件保存。
第一步、需要两个组件：WordApplication、WordDocument。
第二步、通过Delphi打开word刚才建立的Word文档。打开Word文档的函数如下：
procedure openwordfile(Myword: TWordApplication;
Myfile: string;IsVisible:Boolean);
//打开Word文档函数。
//Myword:文档工程名称；Myfile:word文件名；IsVisible来控制是否显示。
var
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,WritePasswordDocument,
WritePasswordTemplate, Format,MatchCase, MatchWholeWord, find1, rep1,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,
Wrap, Replace: OleVariant;
{以上的变量都是TDocument.open函数所必需的，都是系统默认的，详情请参看Word的Help}
{可能会碰到错误的提示，一种情况是Uses一下Office97就可以了。}
begin
Myword.Connect;
Myword.Visible :=false;
FileName := MyFile;
//打开的文件名称。
confirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;
myWord.Documents.Open(FileName, ConfirmConversions,
readOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format);
Myword.Visible :=True;
Myword.Disconnect;
end;
//打开Word文档函数（结束）
第三步、打开数据库。
第四步、把数据库中的数据添加到表格中。
1、一些变量的定义
Mytable //用来承载从word中取出的表的Table类型变量。
:Table;
EnArray //用来存放从表中取出的字段名称的数组。
:array[0..24] of string;
afterrow //操作表行的临时变量。
,beforerow //操作表行的临时变量。
:OleVariant;
Mydoc: TWordDocument
2、付MyTable的值，如果Word中就建了一个表，那TableNum就是0或1，具体你试一下。
Mytable:= Mydoc.range.Tables.Item(TableNum);
//将Word指定表付给Mytable。
3、给表格付值
trow := Mytable.Rows.Count;
afterrow := mytable.Rows.last;
mytable.Rows.Add(afterrow);//给表格添行。
Mytable.cell(trow, i).range.text := 取出的数据//只认字符串，你要自己判断，进行转换。
至于循环你自己搞定吧。
4、最后删掉最后一行：
mytable.Rows.Last.Delete;
//删除最后一行。
应该没有问题了，给分吧。：）

非常感谢大家的帮助，特别是天与地，写的非常详细！！谢谢了！！