diff --git a/funcext/TSOffice/TOfficeObj.tsf b/funcext/TSOffice/TOfficeObj.tsf
index 3f44baa..77b0df2 100644
--- a/funcext/TSOffice/TOfficeObj.tsf
+++ b/funcext/TSOffice/TOfficeObj.tsf
@@ -12606,7 +12606,7 @@ Type TPageLine = Class
 	Function _getCharWidth(ch, rPr);
 	Begin
 		iChar := ord(ch);
-		cnt := iChar > 127 ? 3 : 1;
+		cnt := iChar > 127 ? 2 : 1;
 		ratio := cnt=1 ? 0.5 : 1;
 		if ifObj(rPr) then Begin
 			size := max(rPr.Size, rPr.szCs);
@@ -13911,7 +13911,7 @@ Type TDocumentBody = Class(DocObject)
 		sectPr := new TSectPr(docx, nil);
 		while ifObj(pNode) do Begin
 			name := pNode.GetName();
-			if ifarray(numIds) and name = 'w:sectPr' then 
+			if false and ifarray(numIds) and name = 'w:sectPr' then  // 关闭此处的Init计算页码
 				sectPr.Init(pNode);
 			else if name = 'w:p' then Begin
 				sectNode := pNode.FirstChildElement('w:sectPr');