with query_cbtyt do
begin
close;
sql.Clear;
sql.Add('select * from Ó¡Ë¢¼Æ»®±íÍ· where ±àºÅ= '+fieldname+'''');//
open;
end;
str:=query_cbtyt.FieldByName('ÉçÄÚÑ¡Ìâ±àÂë').AsString;
vDoc.Books.Item('xth').Range.InsertAfter(str);///////////注意就是这语句
把我的表格对齐破坏了,后面的标题位置发生了移动,我想再指定的位置进行重写 overwrite 不是insert 高手告诉我怎么办呀
begin
close;
sql.Clear;
sql.Add('select * from Ó¡Ë¢¼Æ»®±íÍ· where ±àºÅ= '+fieldname+'''');//
open;
end;
str:=query_cbtyt.FieldByName('ÉçÄÚÑ¡Ìâ±àÂë').AsString;
vDoc.Books.Item('xth').Range.InsertAfter(str);///////////注意就是这语句
把我的表格对齐破坏了,后面的标题位置发生了移动,我想再指定的位置进行重写 overwrite 不是insert 高手告诉我怎么办呀
似乎是改overtype的值
再word中不是又insert 和 overwrite状态么
好久没整过OLE方式了,好象可以这样改的:
wordApplication1.Options.Overtype := not wordApplication1.Options.Overtype ;