在word里如何生成级结构图-2：请bluerain,djflying拿走分数(300分)

cstyle:=$FFFFFFFE;
wordapp.ActiveDocument.Range(EmptyParam,EmptyParam).Set_Style(cstyle);
wordapp.ActiveDocument.Range(EmptyParam,EmptyParam).InsertAfter(edit1.text);
wordapp.ActiveDocument.Range(EmptyParam,EmptyParam).InsertParagraphAfter;

来自bluerain, cstyle：
wdStyleBodyText = $FFFFFFBD; //正文
wdStyleHeading1 = $FFFFFFFE; //标题一
wdStyleHeading2 = $FFFFFFFD; //标题二
wdStyleHeading3 = $FFFFFFFC; //标题三
wdStyleHeading4 = $FFFFFFFB; //标题四
wdStyleHeading5 = $FFFFFFFA; //标题五
wdStyleHeading6 = $FFFFFFF9; //标题六
wdStyleHeading7 = $FFFFFFF8; //标题七
wdStyleHeading8 = $FFFFFFF7; //标题八
wdStyleHeading9 = $FFFFFFF6; //标题九

呵呵,我就是把delphi的word2000.pas拷贝了一下.
那分喽.

呵呵，拿分罗

多人接受答案了。