Wordapplication,WOrddocument控件的使用(200分)

Wordapplication 启动Word 后，程序控制如何生成一个表格？如何向表格中
写入内容？谢谢！

为什么没有人回答呢？我也想知道。

phaqy:如果还想接着讨论请定期提前自己的帖子，如果不想继续讨论请结束帖子。

var
Form1: TForm1;
Word:Variant;
MyDoc:Variant;
MyTable:Variant;
Range:Variant;
implementation
uses comobj;
{$R *.DFM}
//生成表格
procedure TForm1.Button1Click(Sender: TObject);
begin
Word :=CreateOleObject('word.application');
Word.visible :=True;
MyDoc :=Word.Documents.add;
Range :=Word.Selection.Range;
MyTable :=MyDoc.tables.Add(range,10,10);
end;
//向表格填值,这些对象可以在vba的对象浏览器中知道该如何引用
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:Integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
MyTable.cell(i,j).Range.Text:=IntToStr(i)+IntToStr(j);
end;

看看word中visaul basic的帮助，很多东西都有的。

应该这样，给你个例子：

...
var
Word, Doc, Table: OleVariant;
begin
{ 创建Word对象并运行Word }
Word := CreateOleObject('word.application');

Word.Visible := true; { 使Word可见 }
Doc := Word.ActiveDocument; { 取Word中当前的活动文档 }
Table := Doc.Tables.Item(1); { 取Doc中的第一个表格 }

{ 在Table的第1行第1列填入文字'Hello' }
Table.Cell(1, 1).Range.Text := 'Hello';
...

具体见Word VBA的帮助，它存放在下面的目录下：
C:/Program Files/Microsoft Office/Office/VBAWRD8.HLP

多人接受答案了。