var
doc: IDocument;
docfile: IEmbeddedObject;
doc := doccur;
docid := doc.GetItemValue('BoxID');
tempstr:=docid[0];
if Trim(tempstr)='' then
begin
docid := doc.UniversalID;
tempname := docid;//docid[0];
//
//doc.AppendItemValue('BoxID','213123123123') ;
doc.ReplaceItemValue('BoxID',tempname) ;
doc.Save(True,True,True);
end;
本文地址:http://www.dfwlt.com/forum.php?mod=viewthread&tid=241&extra=page%3D1,转发请保留这个地址,谢谢
转载于:https://www.cnblogs.com/xszlo/archive/2013/03/06/2945823.html