如何把控制word中的表格 我用wordApp控件可以向word的一个表格中写入数据,但是怎么才能添加表格的行数和列数因为我要写入的东西是从数据库读出的,每次的记录个数都不一样,所以表格要求是动态的 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var v: variantbegin v := CreateObject('Word.Application.8'); v.Visible := true; v.... //使用VBA, 具体见Word VBA的帮助end; 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';...用如下方法创建一表格(10x4):var Doc:OleVariant;begin Doc:=CreateOleObject('Word.Application'); Doc.Visible:=True; Doc.Documents.Add; Doc.ActiveDocument.Tables.Add(Doc.ActiveDocument.Range(0, 0),10,4);end; Doc.ActiveDocument.Tables.Add(Doc.ActiveDocument.Range(0, 0),10,4);编译不过去呀 timer 中的label.caption 显示 WindowMediaPlayer在分線程里無法播放 100分求助,用记事本打开可以显示内容,memo载入只显示第一行! sendmessage和postmessage的一些用法 如何实现对access库文件的压缩及解压(用vclzip?)? 冲突问题 求助,dbgrid的简单问题。。 如何根据进程id取得程序名? 如何学DELPHI,为什么没有人回答 熟悉SEVER控件的朋友,请帮帮忙,急!!(DELPHI6不认EmptyParam参数!) 关于游戏菜单 Byte到底转化成什么类型的数据
v: variant
begin
v := CreateObject('Word.Application.8');
v.Visible := true;
v.... //使用VBA, 具体见Word VBA的帮助
end;
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';
...用如下方法创建一表格(10x4):var Doc:OleVariant;
begin
Doc:=CreateOleObject('Word.Application');
Doc.Visible:=True;
Doc.Documents.Add;
Doc.ActiveDocument.Tables.Add(Doc.ActiveDocument.Range(0, 0),10,4);
end;
编译不过去呀