diff --git a/funcext/TSOffice/TOfficeObj.tsf b/funcext/TSOffice/TOfficeObj.tsf
index faecc41..744d1df 100644
--- a/funcext/TSOffice/TOfficeObj.tsf
+++ b/funcext/TSOffice/TOfficeObj.tsf
@@ -13893,11 +13893,11 @@ Type TDocumentBody = Class(DocObject)
 							if ifObj(obj) then Begin
 								level := obj.HeadingLevel();
 								iLevel := Class(TSXml).SafeStrToIntDef(level, -1);
-								if iLevel+1 >= UpperHeadingLevel and iLevel+1 <= LowerHeadingLevel then Begin
+								if p.Text() <> "" and iLevel+1 >= UpperHeadingLevel and iLevel+1 <= LowerHeadingLevel then Begin
 									r[ind]['Level'] := strtoint(level);
 									r[ind]['Paragraph'] := p;
 									r[ind]['Text'] := p.Text();
-									r[ind]['numId'] := integer(numId);	//数字项目编号
+									r[ind]['numId'] := ifnumber(numId) ? integer(numId) : 0;	//数字项目编号
 									r[ind]['ilvl'] := ilvl;		//级别
 									r[ind]['numArr'] := numArr;	//累加数字编码
 									sectPr.Mark(ind);//标记段落