delphi往word插入多表格,效果跟目标差一点点
procedure TfrmEveQry.btnWordClick(Sender: TObject);
var
i,j:integer;
wdapp,wdpar,wdrange,t:olevariant;
doc:olevariant;
begin
try
wdapp:=createoleobject('word.application');
except
application.MessageBox('请确认安装Word程序','系统提示');
abort;
end;
wdapp.Visible:=false;
wdapp.documents.add;
//wddoc.Activate;
wdapp.Selection.font.size:=25;
wdapp.Selection.Paragraphs.Alignment:=wdAlignParagraphCenter;
wdapp.Selection.TypeText('事件查询结果');
wdapp.Selection.TypeParagraph;
wdapp.Selection.font.Size:=10;
wdapp.Selection.Paragraphs.Alignment:=wdAlignParagraphCenter;
wdapp.Selection.TypeText('操作人：' + CurrRight.username + ' ' + datetimetostr(now));
wdapp.Selection.TypeParagraph;
wdapp.Selection.font.Size:=12;
wdapp.Selection.Paragraphs.Alignment:=wdAlignParagraphCenter;
for j:=1 to sgRet.RowCount do
begin
wdpar:=wdapp.ActiveDocument.Paragraphs.Add;
wdrange:=wdpar.range;
wdrange:=wdapp.ActiveDocument.Content;
wdrange.Collapse(wdCollapseEnd);
t:=wdapp.activedocument.tables.Add(wdrange,23,2);
for i:=1 to 23 do
begin
t.cell(i,1).range.text:= sgRet.Cells[i-1,0];
t.cell(i,1).range.Paragraphs.Alignment:= wdAlignParagraphCenter;
t.cell(i,2).range.text:= sgRet.Cells[i-1,j];
t.cell(i,2).range.Paragraphs.Alignment:= wdAlignParagraphCenter;
end;
wdapp.Selection.TypeParagraph;
wdapp.Selection.TypeParagraph;
wdapp.Selection.TypeParagraph;
end;
wdapp.Visible:=true;
end;
事件查询结果
操作人：hyc 2007-8-15 17:40:41
//这里在耍刷屏，我晕
//是 wdrange.Collapse(wdCollapseEnd);这句在作怪！，不要就死得更难看
//线条在csdn上显示不出来而已
事件编号2007072500001
关联编号
关联类型0
报警时间2007-07-25 09:30:16
报警方式 手机
电话号码1374574455
来电人hyc
联系方式huabotongxun
事发时间2007-07-25 09:10:10
事发地点taira nluk ouy oume inv kan
事件类型纵火
事件级别普通
呼叫编号7456544
事件原因利益纠纷
是否演习否
事件描述youmeinvkanlo
事件状态haok
是否完成是
完成时间2007-08-06 12:00:00
是否备案否
是否归档否
登记人qwq
事件类型序列09
事件编号2007072500002
关联编号
关联类型0
报警时间2007-07-25 09:30:16
报警方式 手机
电话号码1374574455
来电人hyc
联系方式huabotongxun
事发时间2007-07-25 09:10:10
事发地点taira nluko uyou mein vk an
事件类型纵火
事件级别普通
呼叫编号7456544
事件原因利益纠纷
是否演习否
事件描述youmeinvkanlo
事件状态
是否完成否
完成时间
是否备案否
是否归档否
登记人hyc
事件类型序列09
事件编号2007072600002
关联编号
关联类型0
报警时间2007-07-26 16:01:57
报警方式 电话
电话号码687987897
来电人asfasedf
联系方式asfasasdfasdf
事发时间2007-07-26 16:01:57
事发地点asdgs dfgas
事件类型纵火
[解决办法]
顶一顶
[解决办法]
没看清除你想问什么
[解决办法]
接粉
[解决办法]
没看明白
[解决办法]
我也不清楚楼主想要问什么？
