谁有WordApplication等控件的帮助？(100分)

不知为何，delphi５中竟然没有WordApplication等servers控件的帮助，谁有？发我一个
我给１００大元

我有，email????

我也想要。email:fatstar@21cn.com

我也想要，给我一份，谢谢。。。


stardream@yeah.net

不会是自己写的吧？？
具我所知，这个帮助好象没出，我去过borland的国外网站，均没发现
也没有提出有关的信息。

我正在为之痛苦，也请给我一份吧
zhangyvping@163.net

我可以也来一份吗？

谢谢 xyzzyx
email: nangcat@163.net

看office的vba吧

同意 向红林
office97的vba很全，office2000和office97用法有些不一样，发布时要注意

我一向都是边看宏代码边写的，不过哪位有帮助的话，更好。能否也发我一份。
kan@freetrend.com.vn。

太多了，去boland下吧

给我地址，谢谢

MSDN

我要！！！！！！！！！！！！！！！！

這個問題我去年問過﹐許多人都笑話我﹐真失敗
那東西的幫助...就是office的vba文檔

请给我一份，谢谢
sms7dxq@fm365.com

大家去下吧！坛主给分吧。
ftp://ftp.borland.com/pub/delphi/techpubs/delphi5/d5ms97.zip

不要用最好不要用那个什么word.application控件和excel的application控件。
如果真要用：
如果你用的是off2000请删掉原来的面版上的控件。加入新的office系列控件.在office的目录下。
----
最好用comobj对象.我可是在这上面用了一个星期才把vba的代码改到delphi里了。2000对应excel_**t.pas文件.我忘了。
use office对应的的pas文件
简直太简单，我保证你们要给我发个金字奖。(简直是vba 和delphi的集成）。
这是一个你们都想不到的：
1。用word或excel的宏生成一个宏
2。打开编辑这个宏。
3。考这些宏到delphi的代码里。
4。修改这些宏的格式为delphi的格式：
如（) 改为[], " 改为 ' , = 改为 := , 参数用（参1，参2),加分号 等等。
5.不要用宏代码中的with do 直接在前面加上对象。
如：xl:=createoleobject(excel.application);
xl.宏代码。
xl.宏代码。
你可以直接把office的宏代码考到delphi里，我保证你爽歪歪了。
因为这些代码全是office的宏产生的不用你动什么脑子用delphi的word,excel控件。
时间太少有什么问题发邮件给我,我现在在外面说得可能不全。

！我保证你们看到以下的用法一定爽歪歪了！！！
这可是我三天工作的结果。唔。。。
---看最后终结者office。
--------------------------------
如果你们用的office97的server控件，那么用office2000时就要把server上的控件换掉。
做法：
1。在Componet里打开Install Packages.....
2.去掉borland sample automation server components
3.在project中点input type Library....
4.点add加入office2000的类库。（在Microsoft Office/office目录下的）
5。反正是什么Excel9.olb , Msword9.olb 和那些*.olb的东东，有excel的，word的，等。。。
6。palette page:改为servers(因为以前的office的控件完完了）
7。点install就好了。
这样office2000的问题我想应解决了。（如果你用的是什么word.application或excel.application 的控件的话）。
-----------
我的建议：
先用上面一的方法，再用comobj对象。
use comobj, excel_tlb; //excel_tlb 是新excel控件的pas文件，你把新控件放在窗体上看它用的哪个.pas就好了，当然下面要把这个控件去掉。因为comobj不用这个控件。只用这个.pas如excel_tlb中的函数。
var xl:variant;
在事件里写：
xl:=createoleobject('Excel.Application');

然后打开excel或word录一个宏命令，并打开宏命令考入代码。
----以下是宏录下来的宏。
workbooks.add
Range("C57").Select
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Delete
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet3").Range("A1")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3"
-------
现在把它改为以下：
xl.workbooks.add;
xl.workbooks.add('d:/test.xls');
xl.Range['C57'].Select;
xl.Sheets['Sheet2'].Select;
xl.ActiveWindow.SelectedSheets.Delete;
xl.Charts.Add;
xl.ActiveChart.ChartType := xlColumnClustered;
xl.ActiveChart.Location(xlLocationAsObject,'Sheet3');
现在运行一下，我保证你们爽歪歪!
看到规律了吗？
前面加上对象名，（）改[]，= 改:=,有参数时直接用，后加; 。哈哈，满意了吧，
用office的宏命令可是不用你去想编程的，全是手动。这样少写了一大堆代码。

bbcoll 如有不明白的朋友讨论可：bbcoll@china.com

-------------------------------------------------------