我怎么样才能将Word中的插入的第一行设为"标题 1",而第二行设为"正文",再将第三行设为"标题 1",....

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  WordApp,WordDoc,WordParagraph,WordRange,WordTable:variant;
  SltRec,SltCol,VisCol :integer;
  ColIndex,RowIndex : Integer;
  selr,selc,j,hh,lh:integer;
  allself:boolean;
  MergeCell : Variant;
begin
  if VarIsEmpty(WordApp) then
    WordApp := CreateOleObject('word.Application');  WordDoc := WordApp.documents.add;
  WordParagraph := WordApp.activedocument.paragraphs.add;
  WordRange := WordParagraph.range;
  WordRange.Collapse(wdCollapseEnd);
  WordRange.text:= '标题一';  WordParagraph := WordApp.activedocument.paragraphs.add;
  WordRange := WordParagraph.range;
  WordRange.Collapse(wdCollapseEnd);
  WordRange.text:= '正文';  WordParagraph := WordApp.activedocument.paragraphs.add;
  WordRange := WordParagraph.range;
  WordRange.Collapse(wdCollapseEnd);
  WordRange.text:= '标题二';  WordApp.Visible := true;
end;

Answer 1

楼上的，你理解错我的意思了！
我是想将WordRange.text的(selection.sytle := '标题 1'),
而不是简单的将其附值为WordRange.text := '标题 1',
我这样做的目的，是要在文档生成以后，可以创建文档目录！！
麻烦您再帮我看一下！！
也就是怎么样将它做成
第一行的文字  wordapp.selection.style := '标题 1'
第二行的文字  wordapp.selection.style := '正文 '
你总是不能很好的控制它