X xiaoa2002 Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-17 #1 从delphi向word专数据时,怎样设置word页码?在线等,请高手指教
5 51delphitang Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-17 #2 数据传到word中后,在word中设置页码不就得了, 别告诉我word中不会设置吧?
X xiaoa2002 Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-17 #3 51delphitang老兄,你不知道这帮人很懒,我当然会,人家不会啊
Z zhangshunzhong Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-18 #4 procedure TForm1.Button1Click(Sender: TObject); var Align,ShowFirstlevariant; sec:section; Foot:HeaderFooter; begin Align:=wdAlignPageNumberCenter; ShowFirst:=True; sec:=WordApplication1.ActiveDocument.Sections.Item(1); Foot:=sec.Footers.Item(1); Foot.PageNumbers.Add(Align,ShowFirst); end;
procedure TForm1.Button1Click(Sender: TObject); var Align,ShowFirstlevariant; sec:section; Foot:HeaderFooter; begin Align:=wdAlignPageNumberCenter; ShowFirst:=True; sec:=WordApplication1.ActiveDocument.Sections.Item(1); Foot:=sec.Footers.Item(1); Foot.PageNumbers.Add(Align,ShowFirst); end;