Question

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

我通过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

鸢赴

Answer 5

鸢赴

Answer 6

鸢赴