如何给word文档中的某一行编号？(100分)

[?][?][?]
比如：我在word文档中写入了一行
wordapp.Selection.TypeText('小节1');
我怎样才能给这一行编号呢？
就是 1.小节1 的样子。以便在文档结构图里可以看到文档的大纲.

[][][8D][][!][^]

格式---〉项目符号和编号

回了吧？!
生成索引要建立标题
格式---〉样式格式

红包拿来！

to liuguan:
呵呵。。。同学，能否写段代码，你说的这些地球人都知道啊。[]

procedure TForm1.Button1Click(Sender: TObject);
var
Template, NewTemplate,DocType,Docvisible : OleVariant;
DocUnit, DocCount, DocExtend : OleVariant;
DefaultListBehavior : OleVariant;
begin
WordApp.Connect;
WordApp.Visible := True;

Template := EmptyParam;
NewTemplate := EmptyParam;
DocType := EmptyParam;
DocVisible := EmptyParam;
DocUnit := EmptyParam;
DocCount := EmptyParam;
DocExtend := EmptyParam;

WordDoc.ConnectTo(WordApp.Documents.Add(Template,NewTemplate,DocType,DocVisible));
WordApp.Selection.Text := '第一层';
WordApp.Selection.Range.ListFormat.ApplyNumberDefaultOld; // 应用自动编号
WordApp.Selection.Paragraphs.OutlineLevel := wdOutlineLevel1;

WordApp.Selection.MoveRight(DocUnit, DocCount, DocExtend);
WordApp.Selection.TypeParagraph;
WordApp.Selection.Text := '第二层';
WordApp.Selection.Paragraphs.OutlineLevel := wdOutlineLevel2;

WordApp.Selection.MoveRight(DocUnit, DocCount, DocExtend);
WordApp.Selection.TypeParagraph;
WordApp.Selection.Text := '第三层';
WordApp.Selection.Range.ListFormat.ApplyNumberDefaultOld; // 去掉自动编号
WordApp.Selection.Paragraphs.OutlineLevel := wdOutlineLevel3;
end;

接受答案了.