delphi将数据输出至WORD中时，如何设置某一行的样式（比如将之设置成标题或正文） ( 积分: 100 )

delphi将数据输出至WORD中时，如何设置某一行的样式（比如将之设置成标题或正文）

var
w1:variant;
begin
W1 := CreateOleObject('Word.Application');
w1.documents.add;
w1.visible:=true;
W1.ActiveWindow.selection.typetext('第一行第一行第一行第一行第一行第一行第一行');
w1.ActiveWindow.selection.typeParagraph;
w1.ActiveWindow.selection.Font.Name := '宋体';
w1.ActiveWindow.selection.Font.Size := 14;
w1.ActiveWindow.Selection.TypeText (Text:='第二行第二行第二行第二行第二行第二行第二行');
w1.ActiveWindow.Selection.TypeParagraph;
w1.ActiveWindow.Selection.TypeText (Text:='标题１ 标题１标题１标题１');
w1.ActiveWindow.Selection.TypeParagraph;
w1.ActiveWindow.Selection.TypeText (Text:='正文正文正文正文正文正文正文正文正文正文正文');
w1.ActiveWindow.Selection.TypeParagraph;
w1.ActiveWindow.Selection.MoveUp (Unit:=wdLine, Count:=2);
w1.ActiveWindow.Selection.EndKey (Unit:=wdLine, Extend:=wdExtend);
w1.ActiveWindow.Selection.Style := '标题 1';
w1.ActiveWindow.Selection.MoveDown (Unit:=wdLine, Count:=1);
w1.ActiveWindow.Selection.HomeKey (Unit:=wdLine);
w1.ActiveWindow.Selection.endKey (Unit:=wdLine, Extend:=wdExtend);
w1.ActiveWindow.Selection.Style := '正文';
w1.ActiveWindow.Selection.Font.Name := '宋体';
end;

w1.ActiveWindow.Selection.Style := '标题 1';

我來試試，

谢谢 myid0602、unjiang 、Delphizhou久的支持，调整后实现了我的需求。
Word.Selection.Style := '标题 1';
Word.Selection.TypeText('文件');
Word.Selection.TypeParagraph;