118 lines
3.1 KiB
Plaintext
118 lines
3.1 KiB
Plaintext
Type TSDocxInlineShapes = Class(TSVbaBase)
|
|
|
|
public
|
|
Function Init(docx);
|
|
Function Operator[](index);
|
|
|
|
Function SerializeInlineShapes();
|
|
Function FindInlineShapePosition(node);
|
|
|
|
private
|
|
docx_;
|
|
inline_shapes_;
|
|
document_;
|
|
|
|
public
|
|
// Methods
|
|
Function AddChart2(Style, Type, Range, NewLayout);
|
|
Function AddHorizontalLine(FileName, Range);
|
|
Function AddHorizontalLineStandard(Range);
|
|
Function AddOLEControl(ClassType, Range);
|
|
Function AddOLEObject(ClassType, FileName, LinkToFile, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Range);
|
|
Function AddPicture(FileName, LinkToFile, SaveWithDocument, Range);
|
|
Function AddPictureBullet(FileName, Range);
|
|
Function AddSmartArt(Layout, Range);
|
|
Function AddWebVideo(EmbedCode, VideoWidth, VideoHeight, PosterFrameImage, Url, Range);
|
|
Function Item(Index);
|
|
Function New(Range);
|
|
|
|
// Properties
|
|
property Count read ReadCount;
|
|
Function ReadCount();
|
|
|
|
End;
|
|
|
|
// ============== 实现 ================= //
|
|
Function TSDocxInlineShapes.Init(docx);
|
|
Begin
|
|
docx_ := docx;
|
|
inline_shapes_ := array();
|
|
document_ := self.Parent;
|
|
End;
|
|
|
|
Function Operator TSDocxInlineShapes.[](index);
|
|
Begin
|
|
inline_shape_obj := new TSDocxInlineShape(self.Application, self.Creator, self.Parent);
|
|
inline_shape_obj.Init(docx_, inline_shapes_[index - 1]);
|
|
return inline_shape_obj;
|
|
End;
|
|
|
|
Function TSDocxInlineShapes.SerializeInlineShapes();
|
|
Begin
|
|
paragraphs := document_.Paragraphs;
|
|
num := paragraphs.Count;
|
|
for i:=1 to num do
|
|
begin
|
|
paragraph := paragraphs.Item(i);
|
|
node := paragraph.Object();
|
|
if ifObj(node) then
|
|
begin
|
|
run := node.FirstChildElement("w:r");
|
|
while ifObj(run) do
|
|
begin
|
|
drawing := run.FirstChildElement("w:drawing");
|
|
if ifObj(drawing) then
|
|
begin
|
|
trun := TOfficeObj("TRun");
|
|
trun.Init(run);
|
|
inline_shapes_[length(inline_shapes_)] := trun;
|
|
end
|
|
run := run.NextElement("w:r");
|
|
end
|
|
end
|
|
end
|
|
End;
|
|
|
|
// Methods
|
|
Function TSDocxInlineShapes.AddPicture(FileName, LinkToFile, SaveWithDocument, Range);
|
|
Begin
|
|
if not ifBinary(FileName) then raise "TSVBA::Parameter LinkToFile must be in binary.";
|
|
picture := TOfficeObj("TPicture");
|
|
picture.Image := FileName;
|
|
if ifObj(Range) then
|
|
begin
|
|
paragraph := Range.InsertNewParagraph();
|
|
pic := docx_.AddPicture(picture, paragraph.Object());
|
|
document_.Paragraphs.AddParagraph(paragraph.Index(), pic.Root());
|
|
paragraph.Range.Clear(true);
|
|
self.SerializeInlineShapes();
|
|
run := pic.Root().FirstChildElement("w:r");
|
|
trun := TOfficeObj("TRun");
|
|
trun.Init(run);
|
|
end
|
|
else begin
|
|
last := document_.Paragraphs.Item(document_.Paragraphs.Count);
|
|
pic := docx_.AddPicture(picture, last.Object());
|
|
document_.Paragraphs.AddParagraph(nil, pic.Root());
|
|
run := pic.Root().FirstChildElement("w:r");
|
|
trun := TOfficeObj("TRun");
|
|
trun.Init(run);
|
|
inline_shapes_[length(inline_shapes_)] := trun;
|
|
end
|
|
inline_shape_obj := new TSDocxInlineShape(self.Application, self.Creator, self.Parent);
|
|
inline_shape_obj.Init(docx_, trun);
|
|
return inline_shape_obj;
|
|
End;
|
|
|
|
Function TSDocxInlineShapes.Item(Index);
|
|
Begin
|
|
return self[Index];
|
|
End;
|
|
|
|
// Properties
|
|
Function TSDocxInlineShapes.ReadCount();
|
|
Begin
|
|
return length(inline_shapes_);
|
|
End;
|
|
|