delphi操作Word表格问题(200)

  • 主题发起人 网络踏浪
  • 开始时间

网络踏浪

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠,我有如下一个问题:在利用delphi操作Word表格(只是1行1列的表格)时,表格内容由Delphi自动填入,我希望由程序自动判定表格填充是否已经满Word一页了,如果满一页,则自动将余下的内容填入下一个表格。程序如下:xyz:=1; //表格的个数for i:=1 to 25 do begin s1:='e:/11.doc'; //假定是插入到表格的一个Word文件 WordApp.Selection.InsertFile(s1,mRange,mConfirmConversions,mLink,mAttachment); myhigh:=doc.Tables.Item(xyz).Cell(1,1).height; if myhigh>=685 then inc(xyz)end; 上述程序执行的效果是:如果原来表格高度设置得很小,程序结果会自动使表格增高,但在程序循环过程中测试的表格高度始终是当初的初始值。请各位指点问题所在。非常谢谢。
 
F

forgot2002

Unregistered / Unconfirmed
GUEST, unregistred user!
if myhigh<=685 then inc(xyz)
 
顶部