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,可并不理想)