用delphi 写到word中的字如何设置格式?(50分)

我用delphi调用word,怎样设置不同的行的格式,比如
WordDocument1.Range.InsertAfter('第 册 共 册'+#13);
WordDocument1.Range.InsertAfter('编制'+tmp.fieldbyname('bzr').asstring+#13);
WordDocument1.Range.InsertAfter('审核'+tmp.fieldbyname('shr').asstring+#13);
我想将第一行设置为居中,黑体字,小二号字;下面的2行不用居中,设置为小四号字,这个
怎么做?

可以放一个WordFont控件，
然后WordFont1.ConnectTo(WordDocument1.Sentences.Get_Last.Font);
再设置WordFont1相关属性试试。