From 51a499925a580deba6fb9b65e64297e1ec697d1a Mon Sep 17 00:00:00 2001 From: csh Date: Mon, 13 Feb 2023 15:13:20 +0800 Subject: [PATCH] v.1.16-patch1 --- funcext/TSOffice/document/TDocxChart.tsf | 58 ---- funcext/TSOffice/document/TDocxStyles.tsf | 188 ------------ funcext/TSOffice/document/TNumbering.tsf | 225 -------------- funcext/TSOffice/document/TTableContent.tsf | 310 -------------------- funcext/TSOffice/document/docxDocument.tsf | 51 ---- 5 files changed, 832 deletions(-) delete mode 100644 funcext/TSOffice/document/TDocxChart.tsf delete mode 100644 funcext/TSOffice/document/TDocxStyles.tsf delete mode 100644 funcext/TSOffice/document/TNumbering.tsf delete mode 100644 funcext/TSOffice/document/TTableContent.tsf delete mode 100644 funcext/TSOffice/document/docxDocument.tsf diff --git a/funcext/TSOffice/document/TDocxChart.tsf b/funcext/TSOffice/document/TDocxChart.tsf deleted file mode 100644 index 4f48740..0000000 --- a/funcext/TSOffice/document/TDocxChart.tsf +++ /dev/null @@ -1,58 +0,0 @@ -Type TDocxChart = Class(TSChart) - ///缺省构造函数 - Function Create(docx, chartData); overload; - Begin - docx_ := docx; - class(TSChart).Create(chartData); - //chartN.xml - chartId_ := 1 + vselect countof( ['FileName'] ) from docx.Zip().Files() where AnsiStartsText('word/charts/chart', ['FileName']) end; - targetFileName := 'charts/chart' $ chartId_ $ '.xml'; - chartFile := 'word/' + targetFileName; - docx.Zip().Add(chartFile, GetDefaultXml()); - xmlObj_ := docx.Zip().Get(chartFile); - if not chartData_.DisableExcel and istable(chartData.Series) and istable(chartData.Series[0]['Categories']) and istable(chartData.Series[0]['Values']) then Begin - chartData_.NewExcelFile(); - End; - Apply(xmlObj_); - chartData_.AddExcelFile(docx, xmlObj_, chartId_);//添加excel数据文件 - - //Relationship - relsObj := docx.Zip().Get('word/_rels/document.xml.rels'); - [rId_, target] := class(TSXml).FindRelationshipRid(relsObj, ''); - rId_ ++; - class(TSXml).AddRelationshipRid(relsObj, targetFileName, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/chart', 'rId' $ rId_); - //Content_Types - contentType := docx.Zip().Get('[Content_Types].xml'); - class(TSXml).AddOverrideContentType(contentType, '/' + chartFile, 'application/vnd.openxmlformats-officedocument.drawingml.chart+xml'); - End; - - Function GetInnerXml(); - Begin - ETU := 360045;//1cm单位 - return fmt(' - - - - - - - - - - - - - - ', integer(chartData_.Width * ETU), integer(chartData_.Height * ETU), docx_.GetDocPrId(), class(TSXml).CurCodePageToUtf8(chartData_.Name), rId_); - End; - - Function IsWord();override; - Begin - return true; - End; - - docx_; - chartId_; - rId_; - xmlObj_; -End; \ No newline at end of file diff --git a/funcext/TSOffice/document/TDocxStyles.tsf b/funcext/TSOffice/document/TDocxStyles.tsf deleted file mode 100644 index 8f7ec48..0000000 --- a/funcext/TSOffice/document/TDocxStyles.tsf +++ /dev/null @@ -1,188 +0,0 @@ -Type TDocxStyles = Class - //段落格式 - Function Create(docx); - Begin - docx_ := docx; - stylesXml_ := docx.Zip().Get('word/styles.xml'); - idMap_ := array(); - nameMap_ := array(); - maxStyleId_ := 1; - - if ifObj(stylesXml_) then Begin - stylesNode := stylesXml_.FirstChildElement('w:styles'); - if ifObj(stylesNode) then Begin - node := stylesNode.FirstChildElement('w:style'); - while ifObj(node) do Begin - o := TOfficeObj('TDocxStyle'); - o.Init(node); - id := StrToIntDef(o.StyleId, 0); - if id > 0 and maxStyleId_ <= id then - maxStyleId_ := id + 1; - _addStyle(o); - node := node.NextElement('w:style'); - End; - pNode := class(TSXml).GetNode(stylesNode, 'w:docDefaults/w:pPrDefault'); - if ifObj(pNode) then - defaultPpr_ := Class(TSXml).ReadPprFormat(pNode); - - rNode := class(TSXml).GetNode(stylesNode, 'w:docDefaults/w:rPrDefault'); - if ifObj(rNode) then - defaultRpr_ := Class(TSXml).ReadRprFormat(rNode); - End; - End; - End; - - ///缺省样式 - ///styleType：样式类型（paragraph、character、table） - ///返回：TDocxStyle对象 - Function Default(styleType); - Begin - for k, obj in idMap_ do Begin - if obj.wType = styleType then Begin - v := obj.node_.GetAttribute('w:default'); - if v <> '1' then - return obj; - End; - End - return nil; - End; - - ///返回指定名称的TDocxStyle - ///name：样式名称 - ///返回：TDocxStyle对象 - Function GetStyle(name); - Begin - return nameMap_[ lowercase(name) ]; - End; - - ///返回指定StyleId名称的TDocxStyle - ///id：StyleID号（数字ID号或名称字符串） - ///返回：TDocxStyle对象 - Function GetStyleById(id); - Begin - return idMap_[ id ]; - End; - - //返回全部LatentStyles对象列表 - //返回：TDocxStyle对象列表 - Function LatentStyles(); - Begin - r := array(); - node := stylesXml_.FirstChildElement('w:styles'); - if ifObj(node) then - node := node.FirstChildElement('w:latentStyles'); - if ifObj(node) then Begin - node := node.FirstChildElement('w:lsdException'); - while ifObj(node) do Begin - o := TOfficeObj('TDocxStyle'); - o.Init(node); - r[ length(r) ] := o; - node := node.NextElement('w:lsdException'); - End; - End; - return r; - End; - - ///返回全部Styles对象列表 - ///返回：TDocxStyle对象列表 - Function Styles(); - Begin - return idMap_; - End; - - ///插入新的段落样式 - ///styleId：样式ID，可以是自定义名称 - ///xmlStr：InnerXml串 - ///返回：TDocxStyle对象 - Function AddStyleByInnerXml(styleId, xmlStr); - Begin - if ifstring(styleId) and styleId <> '' then Begin - style := GetStyle(styleId); - if ifObj(style) then - return style; - node := stylesXml_.FirstChildElement('w:styles').InsertEndChild(xmlStr); - node.SetAttribute('w:styleId', styleId); - End - else Begin - node := stylesXml_.FirstChildElement('w:styles').InsertEndChild(xmlStr); - node.SetAttribute('w:styleId', maxStyleId_++); - End; - o := TOfficeObj('TDocxStyle'); - o.Init(node); - _addStyle(o); - return o; - End; - - ///插入新的段落样式 - ///o：TDocxStyle对象 - ///StyleId：样式ID，可以是自定义名称 - ///返回：TDocxStyle对象 - Function AddStyle(o, StyleId); - Begin - if ifObj(o) then Begin - if ifString(StyleId) and StyleId <> '' and not ifObj(idMap_[ StyleId ]) then - o.StyleId := StyleId; - else - o.StyleId := maxStyleId_++; - node := stylesXml_.FirstChildElement('w:styles').InsertEndChild(o.Marshal()); - obj := TOfficeObj('TDocxStyle'); - obj.Init(node); - _addStyle(obj); - return obj; - End; - return nil; - End; - - ///插入新的LatentStyle段落样式 - ///o：TDocxStyle对象 - ///返回：TDocxStyle对象 - Function AddLatentStyle(o); - Begin - if ifObj(o) then Begin - latentStyles := stylesXml_.FirstChildElement('w:styles').InsertEndChild('w:latentStyles'); - node := latentStyles.InsertEndChild('lsdException'); - node.UnMarshal(o); - latentStyles.SetAttribute('w:count', length(LatentStyles())); - return node; - End; - return nil; - End; - - ///插入缺省的段落样式（Title、Heading1-9） - ///返回：TDocxStyle对象 - Function AddDefaultStyle(Name); - Begin - styleId := AnsiReplaceText(Name, ' ', ''); - charId := StyleId + 'Char'; - styleFname := 'wStyle/' + styleId + '.xml'; - cStyleFname := 'wStyle/' + charId + '.xml'; - xmlData := TOfficeTemplate(styleFname); - if ifnil(xmlData) then - return xmlData; - o := AddStyleByInnerXml(styleId, xmlData); - - charStyle := idMap_[charId]; - if not ifObj(charStyle) then Begin - xmlData := TOfficeTemplate(cStyleFname); - if ifstring(xmlData) then Begin - AddStyleByInnerXml(charId, xmlData); - End; - End; - return o; - End; - - Function _addStyle(o); - Begin - idMap_[ o.StyleId ] := o; - nameMap_[ lowercase(o.Name) ] := o; - End; - - defaultPpr_; - defaultRpr_; -private - docx_; - stylesXml_; - idMap_; - nameMap_; - maxStyleId_:integer; -End; \ No newline at end of file diff --git a/funcext/TSOffice/document/TNumbering.tsf b/funcext/TSOffice/document/TNumbering.tsf deleted file mode 100644 index cbfb2bf..0000000 --- a/funcext/TSOffice/document/TNumbering.tsf +++ /dev/null @@ -1,225 +0,0 @@ -Type TNumbering = Class - //项目编号 - Function Create(docx); - Begin - docx_ := docx; - numberingXml_ := docx.Zip().Get('word/numbering.xml'); - if not ifObj(numberingXml_) then Begin - xmlData := TOfficeTemplate('numbering/numbering.xml'); - if ifString(xmlData) then Begin - docx.Zip().Add('word/numbering.xml', xmlData); - rels := 'word/_rels/document.xml.rels'; - relsObj := docx.Zip().Get(rels); - [rId, target] := class(TSXml).FindRelationshipRid(relsObj, ''); - rId ++; - class(TSXml).AddRelationshipRid(relsObj, 'numbering.xml', 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/numbering', 'rId' $ rId); - contentType := docx.Zip().Get('[Content_Types].xml'); - class(TSXml).AddOverrideContentType(contentType, '/word/numbering.xml', 'application/vnd.openxmlformats-officedocument.wordprocessingml.numbering+xml'); - numberingXml_ := docx.Zip().Get('word/numbering.xml'); - End; - End; - maxAbstractNumId_ := 0; - maxNumId_ := 1; - numStyleObjs_ := array(); - numIdMap_ := array(); - bullet_ := array(); - hash_ := array(); - bulletDefine_ := array("ef82b2","ef81b5","ef83bc","ef81b6","ef81ac","ef8398","ef81ae");//缺省项目符号文字内容（utf8 -> hex16） - if ifObj(numberingXml_) then Begin - numbering := numberingXml_.FirstChildElement('w:numbering'); - if ifObj(numbering) then Begin - node := numbering.FirstChildElement('w:abstractNum'); - numNode := numbering.FirstChildElement('w:num'); - End; - while ifObj(node) do Begin - o := TOfficeObj('TNumStyle'); - o.Init(node); - nsid := o.Value('nsid'); - if nsid then - hash_[nsid] := 1; - tmpl := o.Value('tmpl'); - if tmpl then - hash_[tmpl] := 1; - id := StrToIntDef(o.abstractNumId, 0); - if id >= 0 and maxAbstractNumId_ <= id then - maxAbstractNumId_ := id + 1; - _addStyle(o); - lastAbstractNumStyle_ := node; - node := node.NextElement('w:abstractNum'); - End; - while ifObj(numNode) do Begin - idStr := numNode.GetAttribute('w:numId'); - id := StrToIntDef(idStr, 0); - if id > 0 and maxNumId_ <= id then - maxNumId_ := id + 1; - abstractNumIdNode := numNode.FirstChildElement('w:abstractNumId'); - if ifObj(abstractNumIdNode) then - numIdMap_[idStr] := abstractNumIdNode.GetAttribute('w:val'); - numNode := numNode.NextElement('w:num'); - End; - End; - End; - - ///新生成numId - ///levelType：字符串，bullet、singleLevel、multilevel - ///fmt：项目格式，取值范围：bullet:0-6；singleLevel：(decimal、chineseCounting)；multilevel：decimal - ///返回：numId - Function NumberId(levelType, fmt); - Begin - style := NumberStyle(levelType, fmt); - if not ifObj(style) then - return -1; - num := TOfficeObj('TNumber'); - num.numId := maxNumId_++; - num.abstractNumId := style.Id; - numberingXml_.FirstChildElement('w:numbering').InsertEndChild(num.Marshal()); - numIdMap_[''$num.numId] := num.abstractNumId; - return num.numId; - End; - - ///根据numId获取TNumStyle对象（已存在） - ///返回：TNumStyle对象 - Function NumberStyle(numId);overload; - Begin - abstractNumId := numIdMap_['' $ numId]; - if abstractNumId then Begin - return numStyleObjs_[abstractNumId]; - End; - return nil; - End; - - //获取TNumStyle对象，如果不存在插入系统缺省 - Function NumberStyle(levelType, fmt);overload; - Begin - if levelType = 'bullet' then Begin - if fmt < 0 or fmt > 6 then return nil; - k := bulletDefine_[fmt]; - o := bullet_[k]; - if ifObj(o) then - return o; - //不存在，插入缺省项目编号 - return AddDefaultStyle('bullet' $ fmt); - End; - - if lowercase(levelType) = 'singlelevel' and lowercase(fmt) = 'decimal' then Begin - if ifObj(singleNumLevel_) then - return singleNumLevel_; - return AddDefaultStyle('singleNumLevel-decimal'); - End; - - if lowercase(levelType) = 'singlelevel' and lowercase(fmt) in array('chinese','chinesecounting','cn','china') then Begin - if ifObj(singleCNLevel_) then - return singleCNLevel_; - return AddDefaultStyle('singlelevel-chineseCounting'); - End; - - if lowercase(levelType) = 'multilevel' and lowercase(fmt) = 'decimal' then Begin - if ifObj(multiNumLevel_) then - return multiNumLevel_; - return AddDefaultStyle('multilevel-decimal'); - End; - return nil; - End; - - ///返回：TNumStyle全部对象列表array('id1':obj1,'id2':obj2); - Function Numberings(); - Begin - return numStyleObjs_; - End; - - ///新添加项目样式 - ///xmlStr：xml字符串 - ///返回：TNumStyle对象 - Function AddStyleByInnerXml(xmlStr); - Begin - if ifObj(lastAbstractNumStyle_) then - node := numberingXml_.FirstChildElement('w:numbering').InsertAfterChild(lastAbstractNumStyle_, xmlStr); - else - node := numberingXml_.FirstChildElement('w:numbering').InsertFirstChild(xmlStr); - node.SetAttribute('w:abstractNumId', maxAbstractNumId_++); - lastAbstractNumStyle_ := node; - o := TOfficeObj('TNumStyle'); - o.Init(node); - _addStyle(o); - _setNsId(o); - return o; - End; - - ///新添加项目样式 - ///o：TNumStyle对象 - ///返回：TNumStyle对象 - Function AddStyle(o); - Begin - if ifObj(o) then Begin - o.abstractNumId := maxAbstractNumId_++; - if ifObj(lastAbstractNumStyle_) then - node := numberingXml_.FirstChildElement('w:numbering').InsertAfterChild(lastAbstractNumStyle_, o.Marshal()); - else - node := numberingXml_.FirstChildElement('w:numbering').InsertFirstChild(o.Marshal()); - lastAbstractNumStyle_ := node; - o := TOfficeObj('TNumStyle'); - o.Init(node); - _addStyle(o); - _setNsId(o); - return o; - End; - return nil; - End; - - //系统默认支持的项目编号样式 - Function AddDefaultStyle(Name); - Begin - xmlData := TOfficeTemplate('numbering/' + name + '.xml'); - if not ifString(xmlData) then - return nil; - return AddStyleByInnerXml(xmlData); - End; - - //map项目对象 - Function _addStyle(o); - Begin - if o.multiLevelType = 'singleLevel' and o.numFmt = 'bullet' then Begin - lvlText := o.lvl.Value('lvlText'); - if lvlText then Begin - str := encoderadixstr(lvlText,"", 0x40000000+16); - bullet_[str] := o; - End; - End - else if not ifObj(singleNumLevel_) and o.multiLevelType = 'singleLevel' and o.numFmt = 'decimal' then - singleNumLevel_ := o; - else if not ifObj(singleCNLevel_) and o.multiLevelType = 'singleLevel' and o.numFmt = 'chineseCounting' then - singleCNLevel_ := o; - else if not ifObj(multiNumLevel_) and o.multiLevelType = 'multilevel' and o.numFmt = 'decimal' then - multiNumLevel_ := o; - - numStyleObjs_[o.abstractNumId] := o; - End; - - //生成nsid随机数->转16进制 - Function _setNsId(o); - Begin - v := Integer(RandomRange(1000000000,2000000000)); - id := inttohex(v, 1); - if hash_[id] then - return _setNsId(o); - hash_[id] := 1; - o.nsid := id; - o.tmpl := id; - arr := o.Marshal(); - class(TSXml).UpdateNode(o.node_, arr['attributes'], arr['children']); - End; -private - docx_; - numberingXml_; - maxAbstractNumId_:integer; - maxNumId_:integer; - lastAbstractNumStyle_; - numStyleObjs_; - singleNumLevel_; - singleCNLevel_; - multiNumLevel_; - bulletDefine_; - bullet_; - numIdMap_; - hash_; -End; diff --git a/funcext/TSOffice/document/TTableContent.tsf b/funcext/TSOffice/document/TTableContent.tsf deleted file mode 100644 index 22109eb..0000000 --- a/funcext/TSOffice/document/TTableContent.tsf +++ /dev/null @@ -1,310 +0,0 @@ -Type TTableContent = class - //目录 - Function Create(docx);overload; - Begin - Create(docx, nil); - End; - - Function Create(docx, node);overload; - Begin - node_ := node; - docx_ := docx; - impl_ := TOfficeObj('TTableContentImpl'); - //_CheckNodes('endnotes.xml'); - //_CheckNodes('footnotes.xml'); - //contentType := docx.Zip().Get('[Content_Types].xml'); - //class(TSXml).AddOverrideContentType(contentType, 'wmf', 'image/x-wmf'); - End; - - Function SetDefaultFormat(); - Begin - defultFont := impl_.stdPr.rPr; - defultFont.rFont.cstheme := 'minorBidi'; - defultFont.rFont.XMLeastAsia := '宋体'; - defultFont.rFont.XMLhAnsi := '宋体'; - defultFont.rFont.XMLascii := '宋体'; - //defultFont.kern := 2; - defultFont.Size := 21; - defultFont.SzCs := 24; - defultFont.Lang := 'en-US'; - defultFont.bidi := 'ar-SA'; - defultFont.eastAsia := 'zh-CN'; - defultFont.Color := 'DBDBDB'; - defultFormat := impl_.stdPr; - defultFormat.ID := integer(time()*24*3600); - //defultFormat.Color := 'DBDBDB'; - defultFormat.docPartObj.docPartGallery := 'Table of Contents'; - defultFormat.docPartObj.docPartUnique := 1; - //impl_.stdEndPr.rPr.Size := 20; - //impl_.stdEndPr.rPr.SzCs := 20; - impl_.stdEndPr.rPr.Bold := true; - End; - - ///应用目录样式 - Function Apply(); override; - Begin - arr := impl_.Marshal(); - class(TSXml).UpdateNode(node_, arr['attributes'], arr['children']); - End; - - ///添加目录条目 - ///UpperHeadingLevel：标题最高级别 - ///LowerHeadingLevel：标题最低级别 - /// 使用 UpperHeadingLevel 属性可设置起始标题级别（最高）。例如，若要设置 TOC 域语法 {TOC \o "1-3"}，可将 LowerHeadingLevel 属性设为 3，并将 UpperHeadingLevel 属性设为 1。 - Function Add(posOpt, UpperHeadingLevel, LowerHeadingLevel); - Begin - ///目录 - mParagraph := TOfficeObj('TParagraph'); - mParagraph.pPr.LineSpacingRule := 'auto'; - mParagraph.pPr.LineSpacing := 240; - mParagraph.pPr.AfterLines := 0; - mParagraph.pPr.SpaceAfter := 0; - mParagraph.pPr.BeforeLines := 0; - mParagraph.pPr.SpaceBefore := 0; - mParagraph.pPr.Alignment := 'center'; - mParagraph.pPr.FirstLineChars := 0; - mParagraph.pPr.FirstLineIndent := 0; - mParagraph.pPr.RightChars := 0; - mParagraph.pPr.RightIndent := 0; - mParagraph.pPr.LeftChars := 0; - mParagraph.pPr.LeftIndent := 0; - mParagraph.Run.T := '目录'; - mParagraph.Run.rPr.SetName('宋体', true); - mParagraph.Run.rPr.Size := 21; - 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(); - run.rPr.Bold := true; - run.rPr.noProof := true; - run.fldCharType := 'end'; - _AddStdContent(p2); - End; - - Function _AddItem(UpperHeadingLevel, LowerHeadingLevel, level, first); - Begin - p := TOfficeObj('TParagraph'); - //标题段落属性 - p.Format.StyleId := _GetStyle(level); - //p.Format.SpaceAfter := 0; - p.Format.rPr.noProof := true; - tab := TOfficeObj('TTabStop'); - tab.Val := 'right'; - tab.leader := 'dot'; - tab.Position := 8640; - p.Format.Tabs.Add(0, tab); - if first then Begin - //fldCharType - r1 := p.AddRun(); - r1.fldCharType := 'begin'; - r1.Dirty := 'true'; - - //instrText - r2 := p.AddRun(); - r2.instrTextSpace := 'preserve'; - r2.instrText := 'TOC \\o \"' $ UpperHeadingLevel $ '-' $ LowerHeadingLevel $ '\" \\h \\u '; - - //fldCharType - r3 := p.AddRun(); - r3.fldCharType := 'separate'; - End; - return p; - End; - - Function _AddTableContent(posOpt, UpperHeadingLevel, LowerHeadingLevel); - Begin - ///获取标题列表 array((("Level":level,"Paragraph":"object","Text":title,"numId":,"ilvl":,"numArr":)); - numMap := array(); - r := docx_.Document().Body().GetHeadingListImpl(docx_, posOpt, UpperHeadingLevel, LowerHeadingLevel, numMap, true); - for i:=0 to length(r)-1 do Begin - p := _AddItem(UpperHeadingLevel, LowerHeadingLevel, r[i]['Level'], i = 0 ? true: false); - //fldCharType - r4 := p.AddRun(); - r4.fldCharType := 'begin'; - - //instrText - bookmarke := _GetBookMarkId(r[i]['Paragraph']); - r5 := p.AddRun(); - r5.instrTextSpace := 'preserve'; - r5.instrText := ' HYPERLINK \\l ' $ bookmarke $ ' '; - - //fldCharType - r6 := p.AddRun(); - r6.fldCharType := 'separate'; - - //目录条目文字内容 - r7 := p.AddRun(); - r7.Font.SetName('宋体', true); - numStr := ''; //数字项目编号 - if r[i]['numId'] then Begin - style := docx_.NumberingObject().NumberStyle(r[i]['numId']);//支持数字、字符串StyleId - if ifObj(style) then - numStr := style.GetText(r[i]['ilvl'], r[i]['numArr']); - End - r7.T := numStr + r[i]['Text']; - - //Tab - r8 := p.AddRun(); - r8.Tab := true; - - //fldCharType - r9 := p.AddRun(); - r9.fldCharType := 'begin'; - - //instrText - r10 := p.AddRun(); - r10.instrTextSpace := 'preserve'; - r10.instrText := ' PAGEREF ' $ bookmarke $ ' \\h '; - - //fldCharType - r11 := p.AddRun(); - r11.fldCharType := 'separate'; - - //页码 - r12 := p.AddRun(); - r12.T := '' $ r[i]['pageNo']; - - //fldCharType - r13 := p.AddRun(); - r13.fldCharType := 'end'; - - //fldCharType - r14 := p.AddRun(); - r14.fldCharType := 'end'; - - if r[i]['Level']+1 = UpperHeadingLevel then Begin //第一级标题，设置为粗体 - p.Format.rPr.Bold := true; - r4.rPr.Bold := true; - r5.rPr.Bold := true; - r6.rPr.Bold := true; - r7.rPr.Bold := true; - r8.rPr.Bold := true; - //r9.rPr.Bold := true; - r10.rPr.Bold := true; - //r11.rPr.Bold := true; - r12.Font.Bold := true; - //r13.rPr.Bold := true; - r14.rPr.Bold := true; - End; - _AddStdContent(p); - End; - End; - - ///更新目录 - Function UpdatePageNumbers(); - Begin - End; - - Function Marshal(); - Begin - return impl_.Marshal(); - End; - - Property Format read readFormat; - Function readFormat(); - Begin - return impl_.stdPr; - End; - - Property EndFormat read readEndFormat; - Function readEndFormat(); - Begin - return impl_.stdEndPr; - End; - - Property Font read readFont; - Function readFont(); - Begin - return impl_.stdPr.rPr; - End; - - Function _AddStdContent(o); - Begin - impl_.SdtContent.NewChildNode( array("field":"", "name":"w:p", "obj":o, "attrEx":"", "nodeType":"") ); - End; - - Function _GetStyle(level); - Begin - styleName := 'Tinysoft目录 ' $ (level + 1); - style := docx_.StyleObject().GetStyle(styleName); - if not ifObj(style) then Begin - style := TOfficeObj('TDocxStyle'); - style.wType := 'paragraph'; - style.CustomStyle := 1; - style.Name := styleName; - style.uiPriority := 0; - style.pPr.LeftChars := 200 * level; - style.rPr.Size := 20; - style.rPr.SzCs := 20; - docx_.StyleObject().AddStyle(style, 'TsToc' $ (level + 1)); - End; - return style.StyleId; - End; - - Function _GetBookMarkId(p); - Begin - node := p.node_.FirstChildElement('w:bookmarkStart'); - 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 - path := docx_.GetPath(); - if path[1] = '/' then Begin - fName := path + '/funcext/TSOffice/template/' + name; - End - else Begin - fName := path + '\\funcext\\TSOffice\\template\\' + name; - End; - if not ReadFile(rwraw(), '', fName, 0, 100 * 1024, 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'); - class(TSXml).AddOverrideContentType(contentType, '/word/' + name, 'application/vnd.openxmlformats-officedocument.wordprocessingml.endnotes+xml'); - End - else if name = 'footnotes.xml' then Begin - class(TSXml).AddRelationshipRid(relsObj, name, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/footnotes', 'rId' $ rId); - contentType := z.Get('[Content_Types].xml'); - class(TSXml).AddOverrideContentType(contentType, '/word/' + name, 'application/vnd.openxmlformats-officedocument.wordprocessingml.footnotes+xml'); - End; - End; - End; - - docx_; - node_; - impl_; -End; \ No newline at end of file diff --git a/funcext/TSOffice/document/docxDocument.tsf b/funcext/TSOffice/document/docxDocument.tsf deleted file mode 100644 index e662001..0000000 --- a/funcext/TSOffice/document/docxDocument.tsf +++ /dev/null @@ -1,51 +0,0 @@ -Type docxDocument = Class - /// word/document.xml对象 - - ///缺省构造函数 - Function Create(z); overload; - Begin - zipfile_ := z; - document_ := zipfile_.Get('word/document.xml'); - root_ := document_.FirstChildElement('w:document'); - bodyNode_ := root_.FirstChildElement('w:body'); - body_ := TOfficeObj('TwBody'); - body_.InitNode(bodyNode_); - body_.zipfile_ := z; - body_.document_ := self; - bookmarkid_ := -1; - End; - - Function Body(); - Begin - return body_; - End; - - Function GetBookMarkID(); - Begin - if bookmarkid_ < 0 then Begin - bookmarkid_ := 0; - p := body_.node_.FirstChildElement('w:p'); - while ifObj(p) do Begin - markStart := p.FirstChildElement('w:bookmarkStart'); - if ifObj(markStart) then Begin - id := markStart.GetAttribute('w:id'); - if ifstring(id) then Begin - iVal := strtoint(id); - if bookmarkid_ <= iVal then - bookmarkid_ := iVal + 1; - End; - End; - p := p.NextElement('w:p'); - End; - End - else - bookmarkid_++; - return bookmarkid_; - End; -private - root_;//w:document - bodyNode_;//w:body - body_; - document_; - bookmarkid_; -End; \ No newline at end of file