H
Haishen
Unregistered / Unconfirmed
GUEST, unregistred user!
我做的生成Word文档的程序，我先是生成所有页的文档，然后再重新从头在各页生成文本框写一些东西，每页固定生成4个文本框，我主要的程序是:
Wa.Selection.GoTo_(D, E, F, G);//跳到要到的页
Wd.Shapes.AddTextbox(Bl,180,780, 50, 20,EmptyParam);//添加文本框
wd.Shapes.Item(anchor).Select(Anchor);//选择新生成文本框
Wa.Selection.Text := S;//向文本框中写内容
我是做的一个循环向各页生成这些内容，但结果却很乱，有的页生成了，有的页没有，有的页又重了，请问这是为什么，如何解决。
（注：我用中断程序的办法让循环一次次的执行，出来的结果没有错误，所以我用了Sleep，可并不理想）
Wa.Selection.GoTo_(D, E, F, G);//跳到要到的页
Wd.Shapes.AddTextbox(Bl,180,780, 50, 20,EmptyParam);//添加文本框
wd.Shapes.Item(anchor).Select(Anchor);//选择新生成文本框
Wa.Selection.Text := S;//向文本框中写内容
我是做的一个循环向各页生成这些内容，但结果却很乱，有的页生成了，有的页没有，有的页又重了，请问这是为什么，如何解决。
（注：我用中断程序的办法让循环一次次的执行，出来的结果没有错误，所以我用了Sleep，可并不理想）