领测软件测试网
6A@
~"g%HZ(z软件测试技术网1D0|8IDo%e WordFont1.ConnectTo(Doc.Paragraphs.Item(2).Range.Font);
软件测试技术网^ bnD8}o$p^7@x //设置段落对齐方式
软件测试技术网}!xO9F4X0? ParaFmt.Alignment := wdAlignParagraphCenter;
H'a6SHdk;z3k9F-S //设置段落行距(磅)
软件测试技术网DF-]+v0db{} ParaFmt.SpaceAfter := 12;
0da6zE"f WordFont1.Size := 18;
软件测试技术网rvR%NP WordFont1.Name := ’Arial’;
软件测试技术网~eg EQ]oyf 9tbV
`.JCoxend;
软件测试技术网n}$g(@@ 软件测试技术网Z;I;Ze+L#x'f PdCcg
Jprocedure TFrm_TravilRDXL.Button1Click(Sender: TObject);
7y,ZV}_J#vvar
软件测试技术网3kA6g0d'wr%~ i,j:integer;
&BV l5FCGI0OEbegin
l[og8tn6| i:=2;//初始化
软件测试技术网R]e_1Rs.kG{!g j:=1;
#}:BGhq4P t FqQCC@W+_{ WordApplication1.Connect;
软件测试技术网T??!y
U%yGp 软件测试技术网&mn2J
I7un#qy Doc.ConnectTo(WordApplication1.Documents.Add(EmptyParam, EmptyParam));
.G0_lbEAp WordApplication1.Visible := True;//显示word文档
软件测试技术网(\'tS