delphi控制word，碰到郁闷的问题。帮忙看看(100分)

我要在word中设置段落格式（段前：0行，段后：0行，单倍行距，用的是word2003）
部分代码如下：
WordApp := CreateOleObject('Word.Application');
WordApp.Options.CheckSpellingAsYouType := False;
WordApp.Options.CheckGrammarAsYouType := False;
WordApp.Options.CheckGrammarWithSpelling := false;
WordApp.Options.CheckHangulEndings := false;
WordApp.Visible :=0; //是否显示文件编辑
WordApp.Documents.open(ExtractFilePath(Application.ExeName)+'Temp/Temp.dot');
……
//试卷整体排版
WordApp.Selection.WholeStory;
WordApp.Selection.ParagraphFormat.SpaceBefore:=0;
WordApp.Selection.ParagraphFormat.SpaceBeforeAuto:=False;
WordApp.Selection.ParagraphFormat.SpaceAfter:=0;
WordApp.Selection.ParagraphFormat.SpaceAfterAuto:=False;
WordApp.Selection.ParagraphFormat.LineSpacingRule:=wdLineSpaceSingle;
WordApp.Selection.ParagraphFormat.LineUnitBefore:=0;
WordApp.Selection.ParagraphFormat.LineUnitAfter:=0;
WordApp.Selection.ParagraphFormat.AutoAdjustRightIndent:=False;
WordApp.Selection.ParagraphFormat.DisableLineHeightGrid:=True;
WordApp.Selection.ParagraphFormat.WordWrap:=True;

后面一部分是从word的宏中修改来的。可是这一部分执行起来与直接操word的宏的效果不太一样（这一部分起了作用的。我的本意是压缩试卷的长度，要控制在2页内，只是用delphi的时候可以压缩一下，但没操作word的宏的效果明显），大家帮忙看看，是什么原因？

不会，同关注
帮忙推一下