tinysoft/OfficeVba
5
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

支持range.insertfile

Browse Source
This commit is contained in:
csh
2024-01-22 14:24:02 +08:00
parent 1ac447c94e
commit 3ba20a7c5e
3 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
TSVbaDocxHelp.docx
BIN
View File
Binary file not shown.
docx/TSDocxInlineShapes.tsf
+1 -1
View File
@@ -84,7 +84,7 @@ Begin
paragraph := Range.InsertNewParagraph(); paragraph := Range.InsertNewParagraph();
pic := docx_.AddPicture(picture, paragraph.Object()); pic := docx_.AddPicture(picture, paragraph.Object());
document_.Paragraphs.AddParagraph(paragraph.Index(), pic.Root()); document_.Paragraphs.AddParagraph(paragraph.Index(), pic.Root());
paragraph.Range.Clear(true); paragraph.Range.Delete();
self.SerializeInlineShapes(); self.SerializeInlineShapes();
run := pic.Root().FirstChildElement("w:r"); run := pic.Root().FirstChildElement("w:r");
trun := TOfficeObj("TRun"); trun := TOfficeObj("TRun");
docx/TSDocxRange.tsf
+10
View File
@@ -785,3 +785,13 @@ Function TSDocxRange.ReadStart();
Begin Begin
return range_obj_.GetStart(); return range_obj_.GetStart();
End; 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;