请教如何将delphi中的数据传送到word表格的指定单元格中，很急！！

Question

昨天老板安排了个小任务，我花了一天时间到现在还没有搞定，诚心请各位大侠伸出援助之手！要求：
　　用word做一个文档模板，文档模板里有一个表格，表格不是很规范，并且表格外面还有字（如表的标题）。
　　在delphi6中编程将程序中的数据（譬如一个数组）传送到word表格中的指定单元格中（要特别强调的是表格不是很规范）。并且实现保存及打印功能。昨天就这个问题在大富翁上请教过别人，但由于我水平实在太烂，还是没太搞懂。他们给的一些程序示例都不完整（象一些声明有些大侠就省略了），而以前我又从来没接触过delphi关于word的编程，我照着去做时在编译时通常都不能通过。所以想请大侠能稍微详细的介绍下。先向您道谢了！

Answer 1

To: jinjingzhengjun(竞争) 
你给的程序好象是用delphi来新建一个word 表格，但我希望能在已有的word 表格的特定单元格内输入数据。不过还是非常谢谢你了:)

Answer 2

怎么没人理我呀，55555
大师如果有类似的程序发个给我吧。我的QQ：53976999（一般都隐身在线）email:[email protected]
谢谢！！！

Answer 3

帮你顶!
我的问题和你相反,我是想怎么从Word的表格里的数据取出来放到数据库里

Answer 4

首先要在你的表格设置好书签,然后用程序查找书签再真数据.  procedure SetValue(aBookMark: string; aValue: string);
  begin
    WordApp.Selection.goto(what := wdGoToBook, Name := aBookMark);
    WordApp.Selection.Text := aValue;
  end;

Answer 5

楼上的是一种方法，你还可以在需要插入的地方加入字符  在更换时查找这个字符 更换为你需要的。
procedure TForm1.Button4Click(Sender: TObject);
 var
  wApp:Variant;
begin
 try
  wApp:=GetActiveOleObject('word.Application');
 except
  try
   wApp:=CreateOleObject('word.Application');
  except
   MessageBox(self.Handle,'无法打开Word程序！','系统提示',mb_ok+64);
  end;
 end;
 wApp.Documents.open(FileName:=trim(ExtractFilePath(Application.ExeName))+'wApp.doc');
 wApp.Visible := true;
 wApp.selection.find.clearformatting;
 wApp.selection.find.text:='<%a1%>';//定义的字符
 wApp.selection.find.replacement.text:='bbbbbbbbb';//你所要得字符
 wApp.selection.find.execute(replace:=wdReplaceAll);
 Application.ProcessMessages;
end;