通过OLE在WORD中任意画表格。(200分)

  • 主题发起人 主题发起人 程云
  • 开始时间 开始时间
程

程云

Unregistered / Unconfirmed
GUEST, unregistred user!
这是个小问题，我想通过把数据导到Word中，要画表格，
但对VBA不熟，帮助中也没法现。
请各位帮帮助，不要让我去买书，不然哪来200分送你。
注：越详细越好，灌水有分，只是不多。
 
我是第一个看此问题的人，明天回去研究一下再来。
 
很简单的，你自己先在WORD中录一段宏，然后对照着WORD录制
的宏改写Delphi代码就可以了。
我可以保证，每个函数的差别都在3个字母以下，有经验的程序员
很容易就搞定了。
我当年就是这么做的，也不需要了解多少VBA的东西。
 
to 小刚:
还请多多帮忙。
to Dick:
你的方法有道理，我回去试试。不过，你能不能给点程序，以提高效率。
to only you:
不要光听啊！练两招让我等开开眼界，如何？
 
Dick 的方法跟我差不多
 
用DELPHI5的Word一套组件，没有HELP你可以看MSDN
计算机世界上有一篇对EXCEL操作的文章，你可以去网站上查一下
 
把数据填到 Word 的表格中:
MyDoc := WordApp.Documents.Add(FileName,false);
wTable := MyDoc.Tables.Item(1);
table1.First;
for i := 1 to 3do
begin
if not Table1.Eof then
begin
FillCell(i,1,wtable,'Name');
FillCell(i,2,wtable,'Size');
FillCell(i,3,wtable,'Area');
Table1.Next
end else
Break
end;
上面的语句调试通过(D4)
生成表格用 MyDoc.Tables.Add 吧, 我这台机器上没有 word的说明,没法找,
你自己看看 Word 对象的说明好了: msword.hlp
 
to elan:
你是怎么用的？给个程序吗！也省得我去试了。我没有时间试，
这几天光那几个客户就够我忙的了。
to windwy:
我也知有这组件，也用过，但它还是走的OLE也是用VBA，只不过给
封装起来了，没有帮助还得去找VBA的书，这不就是问的这个。
to Crab:
我回去试一下。
to Jams、K：
两位灌水也不能这样灌法（>>、?），
没有答案可以讲个笑话什么的活跃一下气份吗！
打个问号，写个双箭头的多没意思啊！难怪有些人不喜欢你们去灌水。


 
好，我讲一笑话，昨晚做梦发现一宝藏，正在我琢磨用车将珠宝全带走还是用手将随
便抓一把走的时候，天亮了！！^^-(
 
这个笑话不好笑，说个好点的。
 
呵呵，EASY.
 
to menxin:
EASY什么，EASY，你为何不说来，我看你也，嘿嘿！不会。
 
大家不要不理我。
小问题，两百分，很有赚头，干吗非要在50分的问题里打转转。
 
to Crab:
你的方法我试过了，可以的。但如果我想一行行的添加这些表格，要如何作才好。
 
大家进来啊！我可要发分了。
 
没有来吗？
 
没人捧我的厂了，好难过啊！
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
5K
chlkuei
C
L
将报表转存成Word和Execl格式时,如何将表格线同时转入Word和Execl中(包括shape线)(100分)
回复
5
查看
203
dongx
D
T
请教！！！！用ole连word 表格可以创建 但如何在word的表格单元格里写如数据 写点代码 谢谢 (100分)
回复
0
查看
183
thomashukaidi
T
A
用OLE访问服务器中Word的用户权限控制 急!!!(200分)
2
回复
24
查看
518
awu306
A
X
中国式报表的解决方案之一 小调查 是否希望拥有 类似 Word 般的画表处理。 (100分)
2 3 4
回复
65
查看
406
逍遥泿子
逍
后退
顶部