2008年3月24日星期一

delphi to word

wdapp.Visible:=false;
wdapp.Documents.Add;
//wddoc.Activate;

wdapp.ActiveDocument.PageSetup.Orientation := wdOrientLandscape;

//wdrange:=wdapp.ActiveDocument.Content;

wdapp.ActiveWindow.ActivePane.View.SeekView :=wdSeekCurrentPageHeader ;
wdapp.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
wdapp.Selection.InsertAfter('//PROJECT + #13 + #10 +Formatdatetime('yyyy-mm-dd:hh-mm-ss',now));
wdapp.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;

wdpar:=wdapp.ActiveDocument.Paragraphs.Add;
wdrange:=wdpar.range;
wdrange.Font.Bold := True;
wdrange.Font.Name := 'Arial';
wdrange.Font.Size := 16;
wdrange.Insertbefore('//PROJECT));
wdrange.InsertParagraphAfter;

wdpar3:=wdapp.ActiveDocument.Paragraphs.Add;
wdrange3:=wdpar3.range;
wdrange3.Font.Bold := True;
wdrange3.Font.Name := 'Arial';
wdrange3.Font.Size := 14;
wdrange3.Insertbefore('Input Format');

没有评论: