From f3094c148c0099b6a792d374333c2c3c6d83fcce Mon Sep 17 00:00:00 2001
From: csh <caoshenghui@tinysoft.com.cn>
Date: Tue, 19 Sep 2023 17:00:37 +0800
Subject: [PATCH] v1.4.6-patch1

---
 funcext/TSOffice/TOfficeObj.tsf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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');