Delphi向word文档中输出表格及图形
发布: 2008-5-19 10:41 | 作者: 不详 | 来源: 软件研发之窗 | 查看: 125次 | 进入领测软件测试网论坛讨论
WordFont1.ConnectTo(Doc.Paragraphs.Item(2).Range.Font);
//设置段落对齐方式
ParaFmt.Alignment := wdAlignParagraphCenter;
//设置段落行距（磅）
ParaFmt.SpaceAfter := 12;
WordFont1.Size := 18;
WordFont1.Name := ’Arial’;
end;
procedure TFrm_TravilRDXL.Button1Click(Sender: TObject);
var
i,j:integer;
begin
i:=2;//初始化
j:=1;
WordApplication1.Connect;
Doc.ConnectTo(WordApplication1.Documents.Add(EmptyParam, EmptyParam));
WordApplication1.Visible := True;//显示word文档