支持range.insertfile

docx/TSDocxInlineShapes.tsf

@@ -84,7 +84,7 @@ Begin
 		paragraph := Range.InsertNewParagraph();
 		pic := docx_.AddPicture(picture, paragraph.Object());
 		document_.Paragraphs.AddParagraph(paragraph.Index(), pic.Root());
-		paragraph.Range.Clear(true);
+		paragraph.Range.Delete();
 		self.SerializeInlineShapes();
 		run := pic.Root().FirstChildElement("w:r");
 		trun := TOfficeObj("TRun");

docx/TSDocxRange.tsf

@@ -785,3 +785,13 @@ Function TSDocxRange.ReadStart();
 Begin
 	return range_obj_.GetStart();
 End;
+
+Function TSDocxRange.InsertFile(FileName, Range, ConfirmConversions, Link, Attachment);
+Begin
+	alias := "";
+	paragraph := self.InsertNewParagraph();
+	docx_.InsertFile(alias, FileName, paragraph.Root());
+	paragraph.Range.Delete();
+	document_.Paragraphs.Init(docx_);
+End;
+