upgrade

autoclass/decorator/docx/AbstractNumUnitDecorator@DOCX.tsf

@@ -34,5 +34,8 @@ begin
         {self.}XmlChildMultiLevelType := new PureWValUnitDecorator(object_.XmlChildMultiLevelType);
     if not ifnil(object_.XmlChildTmpl) then
         {self.}XmlChildTmpl := new PureWValUnitDecorator(object_.XmlChildTmpl);
+    elems := object_.Lvls();
+    for _,elem in elems do
+        {self.}AppendChild(new LvlUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/ApUnitDecorator@DOCX.tsf

@@ -28,5 +28,8 @@ begin
         {self.}XmlChildPPr := new APPrUnitDecorator(object_.XmlChildPPr);
     if not ifnil(object_.XmlChildEndParaRPr) then
         {self.}XmlChildEndParaRPr := new ARPrUnitDecorator(object_.XmlChildEndParaRPr);
+    elems := object_.Rs();
+    for _,elem in elems do
+        {self.}AppendChild(new ARUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/BarChartUnitDecorator@DOCX.tsf

@@ -30,7 +30,13 @@ begin
         {self.}XmlChildGrouping := new PureValUnitDecorator(object_.XmlChildGrouping);
     if not ifnil(object_.XmlChildVaryColors) then
         {self.}XmlChildVaryColors := new PureValUnitDecorator(object_.XmlChildVaryColors);
+    elems := object_.Sers();
+    for _,elem in elems do
+        {self.}AppendChild(new SerUnitDecorator(elem));
     if not ifnil(object_.XmlChildGapWidth) then
         {self.}XmlChildGapWidth := new PureValUnitDecorator(object_.XmlChildGapWidth);
+    elems := object_.AxIds();
+    for _,elem in elems do
+        {self.}AppendChild(new PureValUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/BodyUnitDecorator@DOCX.tsf

@@ -24,6 +24,15 @@ function BodyUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    elems := object_.Ps();
+    for _,elem in elems do
+        {self.}AppendChild(new PUnitDecorator(elem));
+    elems := object_.Tbls();
+    for _,elem in elems do
+        {self.}AppendChild(new TblUnitDecorator(elem));
+    elems := object_.Sdts();
+    for _,elem in elems do
+        {self.}AppendChild(new SdtUnitDecorator(elem));
     if not ifnil(object_.XmlChildSectPr) then
         {self.}XmlChildSectPr := new SectPrUnitDecorator(object_.XmlChildSectPr);
     tslassigning := tslassigning_backup;

autoclass/decorator/docx/CacheUnitDecorator@DOCX.tsf

@@ -27,5 +27,8 @@ begin
     if not ifnil(object_.XmlChildFormatCode) then
     if not ifnil(object_.XmlChildPtCount) then
         {self.}XmlChildPtCount := new PureValUnitDecorator(object_.XmlChildPtCount);
+    elems := object_.Pts();
+    for _,elem in elems do
+        {self.}AppendChild(new PtUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/ColUnitDecorator@DOCX.tsf

@@ -0,0 +1,32 @@
+type ColUnitDecorator = class(Col)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Col);
+    function GetObject();
+    function Convert();
+private
+    object_: Col;
+end;
+
+function ColUnitDecorator.Create(_obj: Col);
+begin
+    class(Col).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function ColUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function ColUnitDecorator.Convert();
+begin
+    tslassigning_backup := tslassigning;
+    tslassigning := 1;
+    if not ifnil(object_.XmlAttrW) then
+        {self.}W := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value);
+    if not ifnil(object_.XmlAttrSpace) then
+        {self.}Space := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrSpace.Value);
+    tslassigning := tslassigning_backup;
+end;

autoclass/decorator/docx/ColsUnitDecorator@DOCX.tsf

@@ -24,7 +24,14 @@ function ColsUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    if not ifnil(object_.XmlAttrNum) then
+        {self.}Num := TSSafeUnitConverter.ToInt(object_.XmlAttrNum.Value);
     if not ifnil(object_.XmlAttrSpace) then
         {self.}Space := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrSpace.Value);
+    if not ifnil(object_.XmlAttrEqualWidth) then
+        {self.}EqualWidth := object_.XmlAttrEqualWidth.Value;
+    elems := object_.Cols();
+    for _,elem in elems do
+        {self.}AppendChild(new ColUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/CommentUnitDecorator@DOCX.tsf

@@ -30,5 +30,8 @@ begin
         {self.}Date := object_.XmlAttrDate.Value;
     if not ifnil(object_.XmlAttrId) then
         {self.}Id := object_.XmlAttrId.Value;
+    elems := object_.Ps();
+    for _,elem in elems do
+        {self.}AppendChild(new PUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/CommentsUnitDecorator@DOCX.tsf

@@ -60,5 +60,8 @@ begin
         {self.}XmlnsWpsCustomData := object_.XmlAttrXmlnsWpsCustomData.Value;
     if not ifnil(object_.XmlAttrMcIgnorable) then
         {self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
+    elems := object_.Comments();
+    for _,elem in elems do
+        {self.}AppendChild(new CommentUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/CompatUnitDecorator@DOCX.tsf

@@ -38,5 +38,8 @@ begin
         {self.}AdjustLineHeightInTable.Copy(object_.XmlChildAdjustLineHeightInTable);
     if not ifnil(object_.XmlChildUseFELayout) then
         {self.}UseFELayout.Copy(object_.XmlChildUseFELayout);
+    elems := object_.CompatSettings();
+    for _,elem in elems do
+        {self.}AppendChild(new CompatSettingUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/EffectStyleLstUnitDecorator@DOCX.tsf

@@ -24,5 +24,8 @@ function EffectStyleLstUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    elems := object_.EffectStyles();
+    for _,elem in elems do
+        {self.}AppendChild(new EffectStyleUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/EndnotePrUnitDecorator@DOCX.tsf

@@ -24,5 +24,14 @@ function EndnotePrUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    if not ifnil(object_.XmlChildPos) then
+        {self.}XmlChildPos := new PureWValUnitDecorator(object_.XmlChildPos);
+    if not ifnil(object_.XmlChildNumFmt) then
+        {self.}XmlChildNumFmt := new PureWValUnitDecorator(object_.XmlChildNumFmt);
+    if not ifnil(object_.XmlChildNumStart) then
+        {self.}XmlChildNumStart := new PureWValUnitDecorator(object_.XmlChildNumStart);
+    elems := object_.Endnotes();
+    for _,elem in elems do
+        {self.}AppendChild(new EndnoteUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/EndnoteUnitDecorator@DOCX.tsf

@@ -28,5 +28,8 @@ begin
         {self.}Type := object_.XmlAttrType.Value;
     if not ifnil(object_.XmlAttrId) then
         {self.}Id := object_.XmlAttrId.Value;
+    elems := object_.Ps();
+    for _,elem in elems do
+        {self.}AppendChild(new PUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/EndnotesUnitDecorator@DOCX.tsf

@@ -90,5 +90,8 @@ begin
         {self.}XmlnsWps := object_.XmlAttrXmlnsWps.Value;
     if not ifnil(object_.XmlAttrMcIgnorable) then
         {self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
+    elems := object_.Endnotes();
+    for _,elem in elems do
+        {self.}AppendChild(new EndnoteUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/ExtLstUnitDecorator@DOCX.tsf

@@ -24,5 +24,8 @@ function ExtLstUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    elems := object_.Exts();
+    for _,elem in elems do
+        {self.}AppendChild(new ExtUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/FillStyleLstUnitDecorator@DOCX.tsf

@@ -24,5 +24,11 @@ function FillStyleLstUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    elems := object_.SolidFills();
+    for _,elem in elems do
+        {self.}AppendChild(new SolidFillUnitDecorator(elem));
+    elems := object_.GradFills();
+    for _,elem in elems do
+        {self.}AppendChild(new GradFillUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/FldSimpleUnitDecorator@DOCX.tsf

@@ -26,5 +26,8 @@ begin
     tslassigning := 1;
     if not ifnil(object_.XmlAttrInstr) then
         {self.}Instr := object_.XmlAttrInstr.Value;
+    elems := object_.Rs();
+    for _,elem in elems do
+        {self.}AppendChild(new RUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/FontsUnitDecorator@DOCX.tsf

@@ -48,5 +48,8 @@ begin
         {self.}XmlnsW16se := object_.XmlAttrXmlnsW16se.Value;
     if not ifnil(object_.XmlAttrMcIgnorable) then
         {self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
+    elems := object_.Fonts();
+    for _,elem in elems do
+        {self.}AppendChild(new FontUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/FootnotePrUnitDecorator@DOCX.tsf

@@ -30,5 +30,8 @@ begin
         {self.}XmlChildNumFmt := new PureWValUnitDecorator(object_.XmlChildNumFmt);
     if not ifnil(object_.XmlChildNumStart) then
         {self.}XmlChildNumStart := new PureWValUnitDecorator(object_.XmlChildNumStart);
+    elems := object_.Footnotes();
+    for _,elem in elems do
+        {self.}AppendChild(new FootnoteUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/FootnoteUnitDecorator@DOCX.tsf

@@ -28,5 +28,8 @@ begin
         {self.}Type := object_.XmlAttrType.Value;
     if not ifnil(object_.XmlAttrId) then
         {self.}Id := object_.XmlAttrId.Value;
+    elems := object_.Ps();
+    for _,elem in elems do
+        {self.}AppendChild(new PUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/FootnotesUnitDecorator@DOCX.tsf

@@ -90,5 +90,8 @@ begin
         {self.}XmlnsWps := object_.XmlAttrXmlnsWps.Value;
     if not ifnil(object_.XmlAttrMcIgnorable) then
         {self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
+    elems := object_.Footnotes();
+    for _,elem in elems do
+        {self.}AppendChild(new FootnoteUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/FormulasUnitDecorator@DOCX.tsf

@@ -24,5 +24,8 @@ function FormulasUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    elems := object_.Fs();
+    for _,elem in elems do
+        {self.}AppendChild(new ShapetypeUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/FtrUnitDecorator@DOCX.tsf

@@ -54,5 +54,8 @@ begin
         {self.}XmlnsWps := object_.XmlAttrXmlnsWps.Value;
     if not ifnil(object_.XmlAttrMcIgnorable) then
         {self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
+    elems := object_.Ps();
+    for _,elem in elems do
+        {self.}AppendChild(new PUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/GsLstUnitDecorator@DOCX.tsf

@@ -24,5 +24,8 @@ function GsLstUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    elems := object_.Gses();
+    for _,elem in elems do
+        {self.}AppendChild(new GsUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/HdrUnitDecorator@DOCX.tsf

@@ -54,5 +54,8 @@ begin
         {self.}XmlnsWps := object_.XmlAttrXmlnsWps.Value;
     if not ifnil(object_.XmlAttrMcIgnorable) then
         {self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
+    elems := object_.Ps();
+    for _,elem in elems do
+        {self.}AppendChild(new PUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/HyperLinkUnitDecorator@DOCX.tsf

@@ -30,5 +30,8 @@ begin
         {self.}Id := object_.XmlAttrId.Value;
     if not ifnil(object_.XmlAttrHistory) then
         {self.}History := object_.XmlAttrHistory.Value;
+    elems := object_.Rs();
+    for _,elem in elems do
+        {self.}AppendChild(new RUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/LatenStylesUnitDecorator@DOCX.tsf

@@ -36,5 +36,8 @@ begin
         {self.}DefQFormat := object_.XmlAttrDefQFormat.Value;
     if not ifnil(object_.XmlAttrCount) then
         {self.}Count := object_.XmlAttrCount.Value;
+    elems := object_.LsdExceptions();
+    for _,elem in elems do
+        {self.}AppendChild(new LsdExceptionUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/LnStyleLstUnitDecorator@DOCX.tsf

@@ -24,5 +24,8 @@ function LnStyleLstUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    elems := object_.Lns();
+    for _,elem in elems do
+        {self.}AppendChild(new LnUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/MFontUnitDecorator@DOCX.tsf

@@ -30,5 +30,8 @@ begin
         {self.}XmlChildEa := new LatinUnitDecorator(object_.XmlChildEa);
     if not ifnil(object_.XmlChildCs) then
         {self.}XmlChildCs := new LatinUnitDecorator(object_.XmlChildCs);
+    elems := object_.Fonts();
+    for _,elem in elems do
+        {self.}AppendChild(new MFontFontUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/NumberingUnitDecorator@DOCX.tsf

@@ -94,5 +94,11 @@ begin
         {self.}XmlnsWps := object_.XmlAttrXmlnsWps.Value;
     if not ifnil(object_.XmlAttrMcIgnorable) then
         {self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
+    elems := object_.AbstractNums();
+    for _,elem in elems do
+        {self.}AppendChild(new AbstractNumUnitDecorator(elem));
+    elems := object_.Nums();
+    for _,elem in elems do
+        {self.}AppendChild(new NumUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/PPrUnitDecorator@DOCX.tsf

@@ -62,5 +62,11 @@ begin
         {self.}XmlChildPBdr := new PBdrUnitDecorator(object_.XmlChildPBdr);
     if not ifnil(object_.XmlChildContextualSpacing) then
         {self.}ContextualSpacing.Copy(object_.XmlChildContextualSpacing);
+    if not ifnil(object_.XmlChildShd) then
+        {self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd);
+    if not ifnil(object_.XmlChildWordWrap) then
+        {self.}XmlChildWordWrap := new PureWValUnitDecorator(object_.XmlChildWordWrap);
+    if not ifnil(object_.XmlChildTextboxTightWrap) then
+        {self.}XmlChildTextboxTightWrap := new PureWValUnitDecorator(object_.XmlChildTextboxTightWrap);
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/PUnitDecorator@DOCX.tsf

@@ -38,5 +38,26 @@ begin
         {self.}WRsidP := object_.XmlAttrWRsidP.Value;
     if not ifnil(object_.XmlChildPPr) then
         {self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr);
+    elems := object_.Rs();
+    for _,elem in elems do
+        {self.}AppendChild(new RUnitDecorator(elem));
+    elems := object_.CommentRangeStarts();
+    for _,elem in elems do
+        {self.}AppendChild(new CommentRangeUnitDecorator(elem));
+    elems := object_.CommentRangeEnds();
+    for _,elem in elems do
+        {self.}AppendChild(new CommentRangeUnitDecorator(elem));
+    elems := object_.BookmarkStarts();
+    for _,elem in elems do
+        {self.}AppendChild(new BookmarkUnitDecorator(elem));
+    elems := object_.BookmarkEnds();
+    for _,elem in elems do
+        {self.}AppendChild(new BookmarkUnitDecorator(elem));
+    elems := object_.Hyperlinks();
+    for _,elem in elems do
+        {self.}AppendChild(new HyperLinkUnitDecorator(elem));
+    elems := object_.FldSimples();
+    for _,elem in elems do
+        {self.}AppendChild(new FldSimpleUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/RPrUnitDecorator@DOCX.tsf

@@ -56,6 +56,8 @@ begin
         {self.}U.Copy(object_.XmlChildU);
     if not ifnil(object_.XmlChildLang) then
         {self.}XmlChildLang := new LangUnitDecorator(object_.XmlChildLang);
+    if not ifnil(object_.XmlChildVertAlign) then
+        {self.}XmlChildVertAlign := new PureWValUnitDecorator(object_.XmlChildVertAlign);
     if not ifnil(object_.XmlChildW14Ligatures) then
         {self.}XmlChildW14Ligatures := new PureWValUnitDecorator(object_.XmlChildW14Ligatures);
     tslassigning := tslassigning_backup;

autoclass/decorator/docx/RUnitDecorator@DOCX.tsf

@@ -50,9 +50,11 @@ begin
         {self.}XmlChildDrawing := new DrawingUnitDecorator(object_.XmlChildDrawing);
     if not ifnil(object_.XmlChildT) then
         {self.}XmlChildT := new TUnitDecorator(object_.XmlChildT);
-    if not ifnil(object_.XmlChildFootnoteReference) then
-        {self.}XmlChildFootnoteReference := new FootnoteReferenceUnitDecorator(object_.XmlChildFootnoteReference);
     if not ifnil(object_.XmlChildObject) then
         {self.}XmlChildObject := new ObjectUnitDecorator(object_.XmlChildObject);
+    if not ifnil(object_.XmlChildFootnoteReference) then
+        {self.}XmlChildFootnoteReference := new FootnoteReferenceUnitDecorator(object_.XmlChildFootnoteReference);
+    if not ifnil(object_.XmlChildFootnoteRef) then
+        {self.}FootnoteRef.Copy(object_.XmlChildFootnoteRef);
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/RelationshipsUnitDecorator@DOCX.tsf

@@ -26,5 +26,8 @@ begin
     tslassigning := 1;
     if not ifnil(object_.XmlAttrxmlns) then
         {self.}xmlns := object_.XmlAttrxmlns.Value;
+    elems := object_.Relationships();
+    for _,elem in elems do
+        {self.}AppendChild(new RelationshipUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/RichUnitDecorator@DOCX.tsf

@@ -28,5 +28,8 @@ begin
         {self.}XmlChildBodyPr := new BodyPrUnitDecorator(object_.XmlChildBodyPr);
     if not ifnil(object_.XmlChildLstStyle) then
         {self.}LstStyle.Copy(object_.XmlChildLstStyle);
+    elems := object_.Ps();
+    for _,elem in elems do
+        {self.}AppendChild(new ApUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/RsidsUnitDecorator@DOCX.tsf

@@ -26,5 +26,8 @@ begin
     tslassigning := 1;
     if not ifnil(object_.XmlChildRsidRoot) then
         {self.}XmlChildRsidRoot := new PureWValUnitDecorator(object_.XmlChildRsidRoot);
+    elems := object_.Rsids();
+    for _,elem in elems do
+        {self.}AppendChild(new PureWValUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/SdtContentUnitDecorator@DOCX.tsf

@@ -24,5 +24,8 @@ function SdtContentUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    elems := object_.Ps();
+    for _,elem in elems do
+        {self.}AppendChild(new PUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/SectPrUnitDecorator@DOCX.tsf

@@ -28,8 +28,16 @@ begin
         {self.}WRsidR := object_.XmlAttrWRsidR.Value;
     if not ifnil(object_.XmlAttrWRsidSect) then
         {self.}WRsidSect := object_.XmlAttrWRsidSect.Value;
+    elems := object_.HeaderReferences();
+    for _,elem in elems do
+        {self.}AppendChild(new ReferenceUnitDecorator(elem));
+    elems := object_.FooterReferences();
+    for _,elem in elems do
+        {self.}AppendChild(new ReferenceUnitDecorator(elem));
     if not ifnil(object_.XmlChildFootnotePr) then
         {self.}XmlChildFootnotePr := new FootnotePrUnitDecorator(object_.XmlChildFootnotePr);
+    if not ifnil(object_.XmlChildEndnotePr) then
+        {self.}XmlChildEndnotePr := new EndnotePrUnitDecorator(object_.XmlChildEndnotePr);
     if not ifnil(object_.XmlChildType) then
         {self.}XmlChildType := new PureWValUnitDecorator(object_.XmlChildType);
     if not ifnil(object_.XmlChildPgSz) then
@@ -43,6 +51,6 @@ begin
     if not ifnil(object_.XmlChildTitlePg) then
         {self.}TitlePg.Copy(object_.XmlChildTitlePg);
     if not ifnil(object_.XmlChildDocGrid) then
-        {self.}XmlChildDocGrid := new docGridUnitDecorator(object_.XmlChildDocGrid);
+        {self.}XmlChildDocGrid := new DocGridUnitDecorator(object_.XmlChildDocGrid);
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/StyleUnitDecorator@DOCX.tsf

@@ -60,5 +60,8 @@ begin
         {self.}XmlChildTrPr := new TrPrUnitDecorator(object_.XmlChildTrPr);
     if not ifnil(object_.XmlChildTcPr) then
         {self.}XmlChildTcPr := new TcPrUnitDecorator(object_.XmlChildTcPr);
+    elems := object_.TblStylePrs();
+    for _,elem in elems do
+        {self.}AppendChild(new TblStylePrUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/StylesUnitDecorator@DOCX.tsf

@@ -52,5 +52,8 @@ begin
         {self.}XmlChildDocDefaults := new DocDefaultsUnitDecorator(object_.XmlChildDocDefaults);
     if not ifnil(object_.XmlChildLatenStyles) then
         {self.}XmlChildLatenStyles := new LatenStylesUnitDecorator(object_.XmlChildLatenStyles);
+    elems := object_.Styles();
+    for _,elem in elems do
+        {self.}AppendChild(new StyleUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/TabsUnitDecorator@DOCX.tsf

@@ -24,5 +24,8 @@ function TabsUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    elems := object_.Tabs();
+    for _,elem in elems do
+        {self.}AppendChild(new TabUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/TblGridUnitDecorator@DOCX.tsf

@@ -24,5 +24,8 @@ function TblGridUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    elems := object_.GridCols();
+    for _,elem in elems do
+        {self.}AppendChild(new GridColUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/TblUnitDecorator@DOCX.tsf

@@ -28,5 +28,8 @@ begin
         {self.}XmlChildTblPr := new TblPrUnitDecorator(object_.XmlChildTblPr);
     if not ifnil(object_.XmlChildTblGrid) then
         {self.}XmlChildTblGrid := new TblGridUnitDecorator(object_.XmlChildTblGrid);
+    elems := object_.Trs();
+    for _,elem in elems do
+        {self.}AppendChild(new TrUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/TcUnitDecorator@DOCX.tsf

@@ -26,5 +26,11 @@ begin
     tslassigning := 1;
     if not ifnil(object_.XmlChildTcPr) then
         {self.}XmlChildTcPr := new TcPrUnitDecorator(object_.XmlChildTcPr);
+    elems := object_.Ps();
+    for _,elem in elems do
+        {self.}AppendChild(new PUnitDecorator(elem));
+    elems := object_.Tbls();
+    for _,elem in elems do
+        {self.}AppendChild(new TblUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/TrUnitDecorator@DOCX.tsf

@@ -34,5 +34,8 @@ begin
         {self.}WRsidTr := object_.XmlAttrWRsidTr.Value;
     if not ifnil(object_.XmlChildTrPr) then
         {self.}XmlChildTrPr := new TrPrUnitDecorator(object_.XmlChildTrPr);
+    elems := object_.Tcs();
+    for _,elem in elems do
+        {self.}AppendChild(new TcUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/TxPrUnitDecorator@DOCX.tsf

@@ -28,5 +28,8 @@ begin
         {self.}XmlChildBodyPr := new BodyPrUnitDecorator(object_.XmlChildBodyPr);
     if not ifnil(object_.XmlChildLstStyle) then
         {self.}LstStyle.Copy(object_.XmlChildLstStyle);
+    elems := object_.Ps();
+    for _,elem in elems do
+        {self.}AppendChild(new ApUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/TxbxContentUnitDecorator@DOCX.tsf

@@ -24,5 +24,8 @@ function TxbxContentUnitDecorator.Convert();
 begin
     tslassigning_backup := tslassigning;
     tslassigning := 1;
+    elems := object_.Ps();
+    for _,elem in elems do
+        {self.}AppendChild(new PUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;

autoclass/decorator/docx/TypesUnitDecorator@DOCX.tsf

@@ -26,5 +26,11 @@ begin
     tslassigning := 1;
     if not ifnil(object_.XmlAttrxmlns) then
         {self.}xmlns := object_.XmlAttrxmlns.Value;
+    elems := object_.Defaults();
+    for _,elem in elems do
+        {self.}AppendChild(new DefaultUnitDecorator(elem));
+    elems := object_.Overrides();
+    for _,elem in elems do
+        {self.}AppendChild(new _OverrideUnitDecorator(elem));
     tslassigning := tslassigning_backup;
 end;