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');

enter relace tab in delphi

1、把form的KeyPreview属性设置成True
2、在form的onKeyPress事件加入
if key = #13 then
keybd_event(VK_TAB,0,0,0);

3 16 版聚游

热闹的一天，赫赫。

战神：由命运去改变命运