From d72d88d68a19a8a9acddce3adf5406b6a7e64820 Mon Sep 17 00:00:00 2001 From: csh Date: Fri, 22 Sep 2023 09:42:31 +0800 Subject: [PATCH] v1.4.7 --- funcext/TSOffice/TOfficeObj.tsf | 69 +++++++++++++++------ funcext/TSOffice/TSDocxFile.tsf | 2 +- funcext/TSOffice/TSExcelFile.tsf | 2 +- funcext/TSOffice/document/TTableContent.tsf | 51 ++++++++------- 更新日志.md | 60 ++++++++++-------- 5 files changed, 110 insertions(+), 74 deletions(-) diff --git a/funcext/TSOffice/TOfficeObj.tsf b/funcext/TSOffice/TOfficeObj.tsf index c6fdbd5..408d4ab 100644 --- a/funcext/TSOffice/TOfficeObj.tsf +++ b/funcext/TSOffice/TOfficeObj.tsf @@ -1,4 +1,4 @@ -// Version 1.4.6 +// Version 1.4.7 Function TOfficeObj(n); Begin @@ -13922,25 +13922,21 @@ Type TDocumentBody = Class(DocObject) p := new TParagraph(pNode); //统计数字项目编号 numArr := array(); - ilvl := -1; - numId := ''; + numId := getNumPr('numId', docx, p); + ilvl := getNumPr('Level', docx, p); + if not ilvl then ilvl := 0; if ifarray(numIds) then Begin sectPr.Append(p); - numId := p.Format.NumPr.Value('numId'); - lvlStr := p.Format.NumPr.Value('Level'); - if not ifnil(numId) and not ifnil(lvlStr) then Begin - ilvl := Class(TSXml).SafeStrToIntDef(lvlStr, -1); - if ilvl >= 0 and ilvl < 10 then Begin - if not istable(numIds[numId]) then - numIds[numId] := array(0,0,0,0,0,0,0,0,0,0); - prev := numIds[numId, ilvl]; - if prev then Begin - for i:=ilvl+1 to 9 do - numIds[numId, i] := 0; - End; - numIds[numId, ilvl]++; - numArr := numIds[numId]; + if ilvl >= 0 and ilvl < 10 then Begin + if not istable(numIds[numId]) then + numIds[numId] := array(0,0,0,0,0,0,0,0,0,0); + prev := numIds[numId, ilvl]; + if prev then Begin + for i:=ilvl+1 to 9 do + numIds[numId, i] := 0; End; + numIds[numId, ilvl]++; + numArr := numIds[numId]; End; End; if bHeadList then Begin //统计大纲显示（目录） @@ -13948,7 +13944,7 @@ Type TDocumentBody = Class(DocObject) if styleId <> '' then Begin obj := docx.StyleObject().GetStyleById(styleId); if ifObj(obj) then Begin - level := obj.HeadingLevel(); + level := getHeadingLevel(docx, obj); iLevel := Class(TSXml).SafeStrToIntDef(level, -1); if p.Text() <> "" and iLevel+1 >= UpperHeadingLevel and iLevel+1 <= LowerHeadingLevel then Begin r[ind]['Level'] := strtoint(level); @@ -13988,6 +13984,40 @@ Type TDocumentBody = Class(DocObject) End; return r; End; + + Function getNumPr(field, docx, p); + Begin + value := p.Format.NumPr.Value(field); + if value then return value; + styleId := p.Format.Value('StyleId', 1); + return getFieldByStyle(field, docx, docx.StyleObject().GetStyleById(styleid)); + End; + + Function getFieldByStyle(field, docx, obj); + Begin + if not ifObj(obj) then return ''; + numId := obj.pPr.numPr.Value(field); + if numId = '' then + begin + id := o.Value('BasedOn'); + return getNumIdByStyle(docx, docx.StyleObject().GetStyleById(id)); + end + return numId; + End; + + Function getHeadingLevel(docx, obj); + Begin + if not ifObj(obj) then return ''; + o := obj; + level := obj.HeadingLevel(); + if level = '' then + begin + id := o.Value('BasedOn'); + return getHeadingLevel(docx, docx.StyleObject().GetStyleById(id)); + end + return level; + End; + Function getPictureMaxId(); Begin @@ -14661,7 +14691,7 @@ Type TTable = Class(DocObject, TTableImpl) cellObj.mergeSpan_ := c[1]; return cellObj; End; - + ///设置列宽 Function ColumnWidth(n, wth); Begin @@ -15314,4 +15344,3 @@ Begin return true; return false; End; - diff --git a/funcext/TSOffice/TSDocxFile.tsf b/funcext/TSOffice/TSDocxFile.tsf index 6576372..bad580b 100644 --- a/funcext/TSOffice/TSDocxFile.tsf +++ b/funcext/TSOffice/TSDocxFile.tsf @@ -1,4 +1,4 @@ -// Version 1.4.6 +// Version 1.4.7 Type TSDocxFile = Class ///Version: V1.0 2022-09-20 diff --git a/funcext/TSOffice/TSExcelFile.tsf b/funcext/TSOffice/TSExcelFile.tsf index c764f7a..ceb3e3c 100644 --- a/funcext/TSOffice/TSExcelFile.tsf +++ b/funcext/TSOffice/TSExcelFile.tsf @@ -1,4 +1,4 @@ -// Version 1.4.6 +// Version 1.4.7 Type TSExcelFile = Class ///Version: V1.0 2022-08-08 diff --git a/funcext/TSOffice/document/TTableContent.tsf b/funcext/TSOffice/document/TTableContent.tsf index 0004d00..8cafb3c 100644 --- a/funcext/TSOffice/document/TTableContent.tsf +++ b/funcext/TSOffice/document/TTableContent.tsf @@ -4,7 +4,7 @@ Type TTableContent = class Begin Create(docx, nil); End; - + Function Create(docx, node);overload; Begin node_ := node; @@ -15,7 +15,7 @@ Type TTableContent = class //contentType := docx.Zip().Get('[Content_Types].xml'); //class(TSXml).AddOverrideContentType(contentType, 'wmf', 'image/x-wmf'); End; - + Function SetDefaultFormat(); Begin defultFont := impl_.sdtPr.rPr; @@ -39,7 +39,7 @@ Type TTableContent = class //impl_.sdtEndPr.rPr.SzCs := 22; impl_.sdtEndPr.rPr.Bold := true; End; - + ///应用目录样式 Function Apply(); override; Begin @@ -50,7 +50,7 @@ Type TTableContent = class arr := tmp_impl.Marshal(); class(TSXml).UpdateNode(node_, arr['attributes'], arr['children']); End; - + ///添加目录条目 ///UpperHeadingLevel：标题最高级别 ///LowerHeadingLevel：标题最低级别 @@ -79,26 +79,26 @@ Type TTableContent = class //mParagraph.Run.rPr.Size := 21/2; //mParagraph.Run.rPr.Bold := true; _AddStdContent(mParagraph); - + goback := TOfficeObj('TParagraph'); id := docx_.Document().GetBookMarkID(); goback.MarkStart.Name := '_GoBack'; goback.MarkStart.ID := id; goback.MarkEnd.ID := id; //_AddStdContent(goback); - + //缺省目录，需要word或wps打开后，更新目录 //_AddDefaultTableContent(UpperHeadingLevel, LowerHeadingLevel); - + //自定义页码计算与word、wps有差异，不推荐使用 _AddTableContent(posOpt, UpperHeadingLevel, LowerHeadingLevel); End; - + Function _AddDefaultTableContent(UpperHeadingLevel, LowerHeadingLevel); Begin p := _AddItem(UpperHeadingLevel, LowerHeadingLevel, UpperHeadingLevel - 1, true); _AddStdContent(p); - + p2 := TOfficeObj('TParagraph'); //p2.Format.SpaceAfter := 0; run := p2.AddRun(); @@ -107,7 +107,7 @@ Type TTableContent = class run.fldCharType := 'end'; _AddStdContent(p2); End; - + Function _AddItem(UpperHeadingLevel, LowerHeadingLevel, level, first); Begin p := TOfficeObj('TParagraph'); @@ -160,9 +160,9 @@ Type TTableContent = class if ifObj(style) then numStr := style.GetText(r[i]['ilvl'], r[i]['numArr']); End - if numStr <> '' then run_t := numStr + ' ' + r[i]['Text']; - else run_t := r[i]['Text']; - r1.SetText(run_t); + run_t := class(TSXml).CurCodePageToUtf8(r[i]['Text']); + if numStr <> '' then run_t := numStr + ' ' + run_t; + r1.SetText(run_t, 1); r2 := h.AddRun(); r2.rPr.noProof := true; @@ -203,7 +203,6 @@ Type TTableContent = class r8.fldCharType := 'end'; _AddStdContent(p); - End; p2 := TOfficeObj('TParagraph'); @@ -215,7 +214,7 @@ Type TTableContent = class _AddStdContent(p2); End; - + ///更新目录 Function UpdatePageNumbers(); Begin @@ -240,24 +239,24 @@ Type TTableContent = class end return r; End; - + Function Marshal(); Begin return impl_.Marshal(); End; - + Property Format read readFormat; Function readFormat(); Begin return impl_.sdtPr; End; - + Property EndFormat read readEndFormat; Function readEndFormat(); Begin return impl_.sdtEndPr; End; - + Property Font read readFont; Function readFont(); Begin @@ -268,7 +267,7 @@ Type TTableContent = class Begin impl_.SdtContent.NewChildNode( array("field":"", "name":"w:p", "obj":o, "attrEx":"", "nodeType":"") ); End; - + Function _GetStyle(level); Begin styleName := ifstring(level) ? level : 'TOC' $ (level + 1); @@ -278,30 +277,30 @@ Type TTableContent = class End; return style.StyleId; End; - + Function _GetBookMarkId(p); Begin node := p.node_.FirstChildElement('w:bookmarkStart'); - if ifObj(node) then + if ifObj(node) then return node.GetAttribute('w:name'); bookMarkID := docx_.Document().GetBookMarkID(); return p.AddBookMark(); End; - + Function _CheckNodes(name); Begin z := docx_.Zip(); xml := z.Get('word/' + name); if not ifObj(xml) then Begin xmlData := TOfficeTemplate(name); - if not ifString(xmlData) then + if not ifString(xmlData) then return ; z.Add('word/' + name, xmlData); rels := 'word/_rels/document.xml.rels'; relsObj := z.Get(rels); [rId, target] := class(TSXml).FindRelationshipRid(relsObj, ''); rId ++; - + if name = 'endnotes.xml' then Begin class(TSXml).AddRelationshipRid(relsObj, name, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/endnotes', 'rId' $ rId); contentType := z.Get('[Content_Types].xml'); @@ -314,7 +313,7 @@ Type TTableContent = class End; End; End; - + docx_; node_; impl_; diff --git a/更新日志.md b/更新日志.md index 444338c..1a29882 100644 --- a/更新日志.md +++ b/更新日志.md @@ -1,5 +1,13 @@ # 更新日志 +## 2023-9-22 + +### V1.4.7 + +#### word + +1. 修复项目符号属于样式时，生成目录无法识别出项目符号问题 + ## 2023-9-19 ### V1.4.6 @@ -7,8 +15,8 @@ #### word 1. 修复表格存在合并单元格，生成目录报错问题 -2. 修复单元格添加run对象，设置样式不生效问题 -3. 修复插入word后，中文样式重复问题 +2. 修复单元格添加 run 对象，设置样式不生效问题 +3. 修复插入 word 后，中文样式重复问题 ### excel @@ -18,7 +26,7 @@ #### excel -1. 修复`NewSheet`excel打开遇到提示错误问题 +1. 修复`NewSheet`excel 打开遇到提示错误问题 ## 2023-8-30 @@ -30,7 +38,7 @@ #### excel -1. 修复`NewSheet`excel打开遇到提示错误问题 +1. 修复`NewSheet`excel 打开遇到提示错误问题 ## 2023-8-28 @@ -40,7 +48,7 @@ 1. 修复`insertFile`样式错误问题 2. 修复`insertFile`后删除段落再新增段落位置错误问题 -3. 修复生成目录中文编码未转换导致word打开失败问题 +3. 修复生成目录中文编码未转换导致 word 打开失败问题 ## 2023-8-22 @@ -56,7 +64,7 @@ #### word -支持插入另一个word内容`InsertFile(alias, fileName, posOpt)` +支持插入另一个 word 内容`InsertFile(alias, fileName, posOpt)` ## 2023-8-11 @@ -64,7 +72,7 @@ #### word -修复插入表格后，设置样式ID无法全部生效问题 +修复插入表格后，设置样式 ID 无法全部生效问题 ## 2023-8-10 @@ -72,7 +80,7 @@ #### word -支持三级以内目录设置字体，一级目录样式ID为`TOC1`，二级目录样式ID为`TOC2`，三级为`TOC3`，通过样式设置相关属性即可修改目录字体 +支持三级以内目录设置字体，一级目录样式 ID 为`TOC1`，二级目录样式 ID 为`TOC2`，三级为`TOC3`，通过样式设置相关属性即可修改目录字体 ## 2023-8-7 @@ -80,7 +88,7 @@ #### word -支持`AddHeading`时传入样式Id +支持`AddHeading`时传入样式 Id ## 2023-8-2 @@ -112,13 +120,13 @@ #### word -段落字体大小设置调整，对齐VBA设置 +段落字体大小设置调整，对齐 VBA 设置 ## 2023-7-11 ### V1.3.4 -修复加密Bug +修复加密 Bug ## 2023-7-4 @@ -130,11 +138,11 @@ word/excel 新增加密方法`SetPassword`，升级`OpenFile(alias, fileName, Pa ### V1.3.2 -修复.net使用rdo2执行失败问题，使用rdo2时候，需调用`TOfficeInit()`初始化 +修复.net 使用 rdo2 执行失败问题，使用 rdo2 时候，需调用`TOfficeInit()`初始化 #### word -1. 修复word模板`template.docx`执行失败问题 +1. 修复 word 模板`template.docx`执行失败问题 ## 2023-6-20 @@ -154,7 +162,7 @@ word/excel 新增加密方法`SetPassword`，升级`OpenFile(alias, fileName, Pa #### excel -1. 支持excel程序设置字体样式粗体，斜体等此类问题的返回类型，如`style.Font.Bold`返回`true 或 false` +1. 支持 excel 程序设置字体样式粗体，斜体等此类问题的返回类型，如`style.Font.Bold`返回`true 或 false` ## 2023-4-4 @@ -170,7 +178,7 @@ word/excel 新增加密方法`SetPassword`，升级`OpenFile(alias, fileName, Pa #### excel -1. 修复由.net客户端导出的excel兼容性问题，`SetColWidth`、`Set/GetDefaultSheet`、`SetSheetHeaderFooter` +1. 修复由.net 客户端导出的 excel 兼容性问题，`SetColWidth`、`Set/GetDefaultSheet`、`SetSheetHeaderFooter` ## 2023-3-23 @@ -239,7 +247,7 @@ word/excel 新增加密方法`SetPassword`，升级`OpenFile(alias, fileName, Pa #### excel -1. Get相关方法重新Set后不再覆盖原有设置，影响方法如下`Set(Get)PageMargins`,`Set(Get)CellHyperLink`,`Set(Get)PageLayout`,`Set(Get)CalcOptions`,`Set(Get)DefaultFont`,`Set(Get)SheetViewOptions` +1. Get 相关方法重新 Set 后不再覆盖原有设置，影响方法如下`Set(Get)PageMargins`,`Set(Get)CellHyperLink`,`Set(Get)PageLayout`,`Set(Get)CalcOptions`,`Set(Get)DefaultFont`,`Set(Get)SheetViewOptions` ## 2023-2-23 @@ -276,7 +284,7 @@ word/excel 新增加密方法`SetPassword`，升级`OpenFile(alias, fileName, Pa 1. 新增`LoadFromMem`, `SavaToMem` 2. 新增重载方法`NewSheet` 3. 新增`SetCalcOptions` -4. 修复删除sheet报错问题 +4. 修复删除 sheet 报错问题 ## 2023-2-13 @@ -312,7 +320,7 @@ word/excel 新增加密方法`SetPassword`，升级`OpenFile(alias, fileName, Pa #### word -1. 修复获取段落样式ID失败问题 +1. 修复获取段落样式 ID 失败问题 2. 修复文本框添加图片失败问题 #### excel @@ -369,8 +377,8 @@ word/excel 新增加密方法`SetPassword`，升级`OpenFile(alias, fileName, Pa #### word -1. 新增ExecInnerTSl -2. 新增修改chart图（数据） +1. 新增 ExecInnerTSl +2. 新增修改 chart 图（数据） 3. 修复`TNumbering::AddStyleByInnerXml`错误 4. 完善帮助文档 @@ -388,11 +396,11 @@ word/excel 新增加密方法`SetPassword`，升级`OpenFile(alias, fileName, Pa #### word -1. 修复chart图兼容性问题 +1. 修复 chart 图兼容性问题 ### V1.0.6 -中文自动转换API由`class(xlsxXml).CodePage('中文');`调整为`TOfficeApi().CodePage('中文');` +中文自动转换 API 由`class(xlsxXml).CodePage('中文');`调整为`TOfficeApi().CodePage('中文');` ## 2023-1-5 @@ -402,15 +410,15 @@ word/excel 新增加密方法`SetPassword`，升级`OpenFile(alias, fileName, Pa #### word -1. 修复 Properties执行报错 +1. 修复 Properties 执行报错 2. 修复格式刷 #### excel -1. 移除API `JoinCellName` +1. 移除 API `JoinCellName` 2. 修改`RGBToHSL`与`HSLToRGB`返回值 3. 修复获取超链接`GetCellHyperLink`失败问题 -4. 修复一个对象新建文件，打开文件之后引发的xlsx文件错误问题 +4. 修复一个对象新建文件，打开文件之后引发的 xlsx 文件错误问题 5. 修复`GetCoreProps`,`GetAppProps`失败问题 ## 2022-12-30 @@ -430,4 +438,4 @@ word/excel 新增加密方法`SetPassword`，升级`OpenFile(alias, fileName, Pa 5. 修复`SetRowVisible`，`GetRowVisible`，`SetSheetVisible`问题 如何设置字符集（中文支持）？ -★用户的脚本可能是UFT8格式，或可能是GBK码格式，系统提供API自动设置当前字符集环境：`class(xlsxXml).CodePage('中文');` 在文件头设置该代码后，系统会自动检测当前的环境字符集 \ No newline at end of file +★ 用户的脚本可能是 UFT8 格式，或可能是 GBK 码格式，系统提供 API 自动设置当前字符集环境：`class(xlsxXml).CodePage('中文');` 在文件头设置该代码后，系统会自动检测当前的环境字符集