通过delphi向word文档中循环添加文本框时，一页写满之后，无法自动跳转到下一页面继续写入

Question

我通过delphi向word文档中循环添加文本框时，一页写满之后，不会自动跳转到第二页继续写，而是还在往下写，以至于很多信息无法看到。请大侠相助！主要代码如下：
for iNum := 1 to 15 do
begin
WordDoc.Shapes.AddTextbox(
msoTextOrientationHorizontal,
Left, Top, Width, Height,
index).TextFrame.TextRange.Text := IntToStr(iNum);
Top := Top + Height;
end
“一页写满之后，不会自动跳转到第二页继续写”，指的是word文档一页写满之后，不会自动跳转到word文档的第二页继续写。而不是程序界面上文本框间的跳转

Answer 1

把第一个文本框的TabOrder设置为0，打开时光标就在那里面了。

文本框的KeyPress里面，if key = #13 then 文本框2.SetFocus;
回车光标就跳到第二个文本框了，同样道理跳到确定按钮上。

Answer 2

新年祝福你：好运伴着你，财神跟着你，名车美女属于你，霉运躲着你，喜事围绕你！ 加分吧，嘻嘻
新年好，财神把你找，找你有何事？送你大元宝。今年送得多，明年也不少。好！好！好！

Answer 3

新年到了，送你一个饺子平安皮儿包着如意馅，用真情煮熟，吃一口快乐两口幸福三口顺利然后喝全家健康汤，回味是温馨，余香是祝福~~~

Answer 4

祝：年年有今日，岁岁有今朝，月月涨工资，周周中彩票，天天好心情，日日好运道，白天遇财神，夜晚数钞票。 就推荐我是最佳答案吧