求將數據導出word的程序---在線等待100分答謝

Question

舉個例子：
數據表名為A，是在sql server 2000中的table
結構如下(有很多記錄，這裡先列興兩條記錄做說明)
   producttype   billnum  weights  paymoney
   廣東件         6         20      220
   福建件         10        100     520
     ：           ：        ：      ：現在我要將這個數據表的數據導出WORD中去，並按一定的格式導出，結果如下(在word檔中)
---------------------------------------------------------------------                       xxxxxxxxxx有限公司
一、出口匯總
   producttype    billnum   weights  paymoney
   廣東件         6         20       220
   福建件         10        100      520
     ：           ：        ：       ：
合計              XX        XX       XX
----------------------------------------------------------------------
請各位幫幫忙，這程序該怎麼寫？？謝謝   

Answer 1

先在word里面设置好你想要的格式 然后在想要输出的地方加上标签 从数据库里读出数据替换标签
代码如下：
  try
   wApp:=GetActiveOleObject('word.Application');
  except
   wApp:=CreateOleObject('word.Application');
  end;
wApp.Selection.GOTO(What:=wdGoToBook,Name:=书签的名字);
wApp.selection.typetext(你要替换的内容);你可以结贴了：）

Answer 2

具体怎么写比较困难,告诉你个解决方法,去查word的 vba函数或者去录word宏,然后看代码解决.

Answer 3

to:ghy412
   你的方法很好，能不能給一個小例子，有一個參數就可以了，謝謝!

Answer 4

[email protected]   這是我的信箱，多謝了

Answer 5

www.delphi3000.com 上有例子代码!