v.1.16-patch1
This commit is contained in:
parent
780d9ecb6d
commit
51a499925a
|
|
@ -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('<w:r>
|
|
||||||
<w:drawing>
|
|
||||||
<wp:inline>
|
|
||||||
<wp:extent cx="{}" cy="{}"/>
|
|
||||||
<wp:effectExtent l="0" t="0" r="19050" b="19050"/>
|
|
||||||
<wp:docPr id="{}" name="{}"/>
|
|
||||||
<wp:cNvGraphicFramePr />
|
|
||||||
<a:graphic xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main">
|
|
||||||
<a:graphicData uri="http://schemas.openxmlformats.org/drawingml/2006/chart">
|
|
||||||
<c:chart xmlns:c="http://schemas.openxmlformats.org/drawingml/2006/chart" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" r:id="rId{}"/>
|
|
||||||
</a:graphicData>
|
|
||||||
</a:graphic>
|
|
||||||
</wp:inline>
|
|
||||||
</w:drawing>
|
|
||||||
</w:r>', 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;
|
|
||||||
|
|
@ -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;
|
|
||||||
|
|
@ -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;
|
|
||||||
|
|
@ -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;
|
|
||||||
|
|
@ -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;
|
|
||||||
Loading…
Reference in New Issue