diff --git a/funcext/TSOffice/TOfficeObj.tsf b/funcext/TSOffice/TOfficeObj.tsf
index 56329cc..681e3e1 100644
--- a/funcext/TSOffice/TOfficeObj.tsf
+++ b/funcext/TSOffice/TOfficeObj.tsf
@@ -1,5 +1,3 @@
-// Version 1.1.4
-
 Function TOfficeObj(n);
 Begin
 	case lowercase(n) of
@@ -12359,8 +12357,10 @@ Type TDocumentBody = Class(DocObject)
 	///[docx]: 可选参数，TSDocxFile对象，在TTextBox、TCell中调用需要传入文档对象
 	Function AddPicture(picture, posOpt, docx);
 	Begin
-		if ifObj(docx) then
+		if ifObj(docx) then Begin
 			zipfile_ := docx.Zip();
+			picture.Run.Drawing.WInline.ID := docx.GetDocPrId();
+		End;
 		if not ifBinary(picture.Image) or length(picture.Image)=0 then 
 			raise 'Invalid Image Data.';
 		if not ifObj(zipfile_) then