1. 修复文档的生成

2. 修复InlineShapes.Count
2024-02-01 15:07:54 +08:00
parent 3ba20a7c5e
commit dffa3f8192
3 changed files with 4 additions and 2 deletions
@@ -38,6 +38,7 @@ Begin
 	docx_ := docx;
 	inline_shapes_ := array();
 	document_ := self.Parent;
+	self.SerializeInlineShapes();
 End;

 Function Operator TSDocxInlineShapes.[](index);
@@ -54,7 +55,7 @@ Begin
 	for i:=1 to num do
 	begin
 		paragraph := paragraphs.Item(i);
-		node := paragraph.Object();
+		node := paragraph.Object().Root();
 		if ifObj(node) then
 		begin
 			run := node.FirstChildElement("w:r");