diff --git a/Gostomizer.dotm b/Gostomizer.dotm
new file mode 100644
index 0000000..22c8243
Binary files /dev/null and b/Gostomizer.dotm differ
diff --git a/Gostomizer.dotm/word/settings.xml b/Gostomizer.dotm/word/settings.xml
deleted file mode 100644
index dd2ee9d..0000000
--- a/Gostomizer.dotm/word/settings.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
-<w:settings xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:w10="urn:schemas-microsoft-com:office:word" xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:w14="http://schemas.microsoft.com/office/word/2010/wordml" xmlns:sl="http://schemas.openxmlformats.org/schemaLibrary/2006/main" mc:Ignorable="w14"><w:zoom w:percent="50"/><w:proofState w:spelling="clean" w:grammar="clean"/><w:defaultTabStop w:val="708"/><w:characterSpacingControl w:val="doNotCompress"/><w:compat><w:compatSetting w:name="compatibilityMode" w:uri="http://schemas.microsoft.com/office/word" w:val="14"/><w:compatSetting w:name="overrideTableStyleFontSizeAndJustification" w:uri="http://schemas.microsoft.com/office/word" w:val="1"/><w:compatSetting w:name="enableOpenTypeFeatures" w:uri="http://schemas.microsoft.com/office/word" w:val="1"/><w:compatSetting w:name="doNotFlipMirrorIndents" w:uri="http://schemas.microsoft.com/office/word" w:val="1"/></w:compat><w:rsids><w:rsidRoot w:val="00CD70D9"/><w:rsid w:val="0000106B"/><w:rsid w:val="001C4D36"/><w:rsid w:val="002868BB"/><w:rsid w:val="00303ACA"/><w:rsid w:val="005B667A"/><w:rsid w:val="00653826"/><w:rsid w:val="00A01BA2"/><w:rsid w:val="00A73C77"/><w:rsid w:val="00BA0736"/><w:rsid w:val="00C96EE3"/><w:rsid w:val="00CD70D9"/><w:rsid w:val="00ED4E70"/><w:rsid w:val="00F653A8"/></w:rsids><m:mathPr><m:mathFont m:val="Cambria Math"/><m:brkBin m:val="before"/><m:brkBinSub m:val="--"/><m:smallFrac m:val="0"/><m:dispDef/><m:lMargin m:val="0"/><m:rMargin m:val="0"/><m:defJc m:val="centerGroup"/><m:wrapIndent m:val="1440"/><m:intLim m:val="subSup"/><m:naryLim m:val="undOvr"/></m:mathPr><w:themeFontLang w:val="ru-RU"/><w:clrSchemeMapping w:bg1="light1" w:t1="dark1" w:bg2="light2" w:t2="dark2" w:accent1="accent1" w:accent2="accent2" w:accent3="accent3" w:accent4="accent4" w:accent5="accent5" w:accent6="accent6" w:hyperlink="hyperlink" w:followedHyperlink="followedHyperlink"/><w:shapeDefaults><o:shapedefaults v:ext="edit" spidmax="1026"/><o:shapelayout v:ext="edit"><o:idmap v:ext="edit" data="1"/></o:shapelayout></w:shapeDefaults><w:decimalSymbol w:val=","/><w:listSeparator w:val=";"/></w:settings>
\ No newline at end of file
diff --git a/Gostomizer.dotm/word/vbaProject.bin b/Gostomizer.dotm/word/vbaProject.bin
deleted file mode 100644
index d8ca2b4..0000000
Binary files a/Gostomizer.dotm/word/vbaProject.bin and /dev/null differ
diff --git a/MacrosList.bas b/MacrosList.bas
new file mode 100644
index 0000000..4efd968
--- /dev/null
+++ b/MacrosList.bas
@@ -0,0 +1,90 @@
+Attribute VB_Name = "MacrosList"
+
+Sub ML_AddListA4()
+    'for debug
+    'MsgBox "������ ������� ������� ����� �4"
+    
+    MsgBox "�� Selection.PageSetup.Orientation = " & Selection.PageSetup.Orientation
+    
+     Selection.InsertBreak Type:=wdSectionBreakNextPage
+    With Selection.PageSetup
+        .LineNumbering.Active = False
+        .Orientation = wdOrientPortrait
+        .TopMargin = CentimetersToPoints(2)
+        .BottomMargin = CentimetersToPoints(2)
+        .LeftMargin = CentimetersToPoints(3)
+        .RightMargin = CentimetersToPoints(1.5)
+        .Gutter = CentimetersToPoints(0)
+        .HeaderDistance = CentimetersToPoints(1.25)
+        .FooterDistance = CentimetersToPoints(1.25)
+        .PageWidth = CentimetersToPoints(29.7)
+        .PageHeight = CentimetersToPoints(42)
+        .FirstPageTray = wdPrinterDefaultBin
+        .OtherPagesTray = wdPrinterDefaultBin
+        .SectionStart = wdSectionNewPage
+        .OddAndEvenPagesHeaderFooter = False
+        .DifferentFirstPageHeaderFooter = False
+        .VerticalAlignment = wdAlignVerticalTop
+        .SuppressEndnotes = False
+        .MirrorMargins = False
+        .TwoPagesOnOne = False
+        .BookFoldPrinting = False
+        .BookFoldRevPrinting = False
+        .BookFoldPrintingSheets = 1
+        .GutterPos = wdGutterPosLeft
+    End With
+    
+    MsgBox "����� Selection.PageSetup.Orientation = " & Selection.PageSetup.Orientation
+    
+    If Selection.PageSetup.Orientation = wdOrientPortrait Then
+        MsgBox "����������"
+        Selection.PageSetup.Orientation = wdOrientLandscape
+    Else
+        MsgBox "���������"
+        Selection.PageSetup.Orientation = wdOrientPortrait
+    End If
+    
+End Sub
+
+Sub ML_AddListA3()
+    'for debug
+    MsgBox "������ ������� ������� ����� �3"
+    
+    Dim ps As PageSetup
+    
+    Set ps = Selection.PageSetup
+        
+    Selection.InsertBreak Type:=wdSectionBreakNextPage
+    With Selection.PageSetup
+        .LineNumbering.Active = False
+        .Orientation = wdOrientLandscape
+        .TopMargin = CentimetersToPoints(1.5)
+        .BottomMargin = CentimetersToPoints(3)
+        .LeftMargin = CentimetersToPoints(2)
+        .RightMargin = CentimetersToPoints(2)
+        .Gutter = CentimetersToPoints(0)
+        .HeaderDistance = CentimetersToPoints(1.25)
+        .FooterDistance = CentimetersToPoints(1.25)
+        .PageWidth = CentimetersToPoints(29.7)
+        .PageHeight = CentimetersToPoints(21)
+        .FirstPageTray = wdPrinterDefaultBin
+        .OtherPagesTray = wdPrinterDefaultBin
+        .SectionStart = wdSectionNewPage
+        .OddAndEvenPagesHeaderFooter = False
+        .DifferentFirstPageHeaderFooter = False
+        .VerticalAlignment = wdAlignVerticalTop
+        .SuppressEndnotes = False
+        .MirrorMargins = False
+        .TwoPagesOnOne = False
+        .BookFoldPrinting = False
+        .BookFoldRevPrinting = False
+        .BookFoldPrintingSheets = 1
+        .GutterPos = wdGutterPosLeft
+    End With
+    
+    Selection.InsertBreak Type:=wdSectionBreakNextPage
+    Selection.PageSetup = ps
+
+
+End Sub
+
diff --git a/Gostomizer.dotm/[Content_Types].xml b/RXE/Gostomizer.dotm/[Content_Types].xml
similarity index 100%
rename from Gostomizer.dotm/[Content_Types].xml
rename to RXE/Gostomizer.dotm/[Content_Types].xml
diff --git a/Gostomizer.dotm/_rels/.rels b/RXE/Gostomizer.dotm/_rels/.rels
similarity index 100%
rename from Gostomizer.dotm/_rels/.rels
rename to RXE/Gostomizer.dotm/_rels/.rels
diff --git a/Gostomizer.dotm/customUI/_rels/customUI14.xml.rels b/RXE/Gostomizer.dotm/customUI/_rels/customUI14.xml.rels
similarity index 100%
rename from Gostomizer.dotm/customUI/_rels/customUI14.xml.rels
rename to RXE/Gostomizer.dotm/customUI/_rels/customUI14.xml.rels
diff --git a/Gostomizer.dotm/customUI/customUI14.xml b/RXE/Gostomizer.dotm/customUI/customUI14.xml
similarity index 100%
rename from Gostomizer.dotm/customUI/customUI14.xml
rename to RXE/Gostomizer.dotm/customUI/customUI14.xml
diff --git a/Gostomizer.dotm/customUI/images/Frame.png b/RXE/Gostomizer.dotm/customUI/images/Frame.png
similarity index 100%
rename from Gostomizer.dotm/customUI/images/Frame.png
rename to RXE/Gostomizer.dotm/customUI/images/Frame.png
diff --git a/Gostomizer.dotm/customUI/images/StampForm5.png b/RXE/Gostomizer.dotm/customUI/images/StampForm5.png
similarity index 100%
rename from Gostomizer.dotm/customUI/images/StampForm5.png
rename to RXE/Gostomizer.dotm/customUI/images/StampForm5.png
diff --git a/Gostomizer.dotm/customUI/images/StampForm6.png b/RXE/Gostomizer.dotm/customUI/images/StampForm6.png
similarity index 100%
rename from Gostomizer.dotm/customUI/images/StampForm6.png
rename to RXE/Gostomizer.dotm/customUI/images/StampForm6.png
diff --git a/Gostomizer.dotm/customUI/images/StampLeftDown.png b/RXE/Gostomizer.dotm/customUI/images/StampLeftDown.png
similarity index 100%
rename from Gostomizer.dotm/customUI/images/StampLeftDown.png
rename to RXE/Gostomizer.dotm/customUI/images/StampLeftDown.png
diff --git a/Gostomizer.dotm/customUI/images/StampLeftMiddle.png b/RXE/Gostomizer.dotm/customUI/images/StampLeftMiddle.png
similarity index 100%
rename from Gostomizer.dotm/customUI/images/StampLeftMiddle.png
rename to RXE/Gostomizer.dotm/customUI/images/StampLeftMiddle.png
diff --git a/Gostomizer.dotm/customUI/images/StampLeftUp.png b/RXE/Gostomizer.dotm/customUI/images/StampLeftUp.png
similarity index 100%
rename from Gostomizer.dotm/customUI/images/StampLeftUp.png
rename to RXE/Gostomizer.dotm/customUI/images/StampLeftUp.png
diff --git a/Gostomizer.dotm/customUI/images/StampPageNumber.png b/RXE/Gostomizer.dotm/customUI/images/StampPageNumber.png
similarity index 100%
rename from Gostomizer.dotm/customUI/images/StampPageNumber.png
rename to RXE/Gostomizer.dotm/customUI/images/StampPageNumber.png
diff --git a/Gostomizer.dotm/customUI/images/a3.png b/RXE/Gostomizer.dotm/customUI/images/a3.png
similarity index 100%
rename from Gostomizer.dotm/customUI/images/a3.png
rename to RXE/Gostomizer.dotm/customUI/images/a3.png
diff --git a/Gostomizer.dotm/customUI/images/a4.png b/RXE/Gostomizer.dotm/customUI/images/a4.png
similarity index 100%
rename from Gostomizer.dotm/customUI/images/a4.png
rename to RXE/Gostomizer.dotm/customUI/images/a4.png
diff --git a/Gostomizer.dotm/docProps/app.xml b/RXE/Gostomizer.dotm/docProps/app.xml
similarity index 93%
rename from Gostomizer.dotm/docProps/app.xml
rename to RXE/Gostomizer.dotm/docProps/app.xml
index c54a775..7a89a52 100644
--- a/Gostomizer.dotm/docProps/app.xml
+++ b/RXE/Gostomizer.dotm/docProps/app.xml
@@ -1,2 +1,2 @@
 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
-<Properties xmlns="http://schemas.openxmlformats.org/officeDocument/2006/extended-properties" xmlns:vt="http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes"><Template>Gostomizer.dotm</Template><TotalTime>24</TotalTime><Pages>1</Pages><Words>0</Words><Characters>0</Characters><Application>Microsoft Office Word</Application><DocSecurity>0</DocSecurity><Lines>0</Lines><Paragraphs>0</Paragraphs><ScaleCrop>false</ScaleCrop><HeadingPairs><vt:vector size="2" baseType="variant"><vt:variant><vt:lpstr>Название</vt:lpstr></vt:variant><vt:variant><vt:i4>1</vt:i4></vt:variant></vt:vector></HeadingPairs><TitlesOfParts><vt:vector size="1" baseType="lpstr"><vt:lpstr></vt:lpstr></vt:vector></TitlesOfParts><Company></Company><LinksUpToDate>false</LinksUpToDate><CharactersWithSpaces>0</CharactersWithSpaces><SharedDoc>false</SharedDoc><HyperlinksChanged>false</HyperlinksChanged><AppVersion>14.0000</AppVersion></Properties>
\ No newline at end of file
+<Properties xmlns="http://schemas.openxmlformats.org/officeDocument/2006/extended-properties" xmlns:vt="http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes"><Template>Gostomizer.dotm</Template><TotalTime>68</TotalTime><Pages>1</Pages><Words>0</Words><Characters>0</Characters><Application>Microsoft Office Word</Application><DocSecurity>0</DocSecurity><Lines>0</Lines><Paragraphs>0</Paragraphs><ScaleCrop>false</ScaleCrop><HeadingPairs><vt:vector size="2" baseType="variant"><vt:variant><vt:lpstr>Название</vt:lpstr></vt:variant><vt:variant><vt:i4>1</vt:i4></vt:variant></vt:vector></HeadingPairs><TitlesOfParts><vt:vector size="1" baseType="lpstr"><vt:lpstr></vt:lpstr></vt:vector></TitlesOfParts><Company></Company><LinksUpToDate>false</LinksUpToDate><CharactersWithSpaces>0</CharactersWithSpaces><SharedDoc>false</SharedDoc><HyperlinksChanged>false</HyperlinksChanged><AppVersion>14.0000</AppVersion></Properties>
\ No newline at end of file
diff --git a/Gostomizer.dotm/docProps/core.xml b/RXE/Gostomizer.dotm/docProps/core.xml
similarity index 79%
rename from Gostomizer.dotm/docProps/core.xml
rename to RXE/Gostomizer.dotm/docProps/core.xml
index aaf980d..1de5727 100644
--- a/Gostomizer.dotm/docProps/core.xml
+++ b/RXE/Gostomizer.dotm/docProps/core.xml
@@ -1,2 +1,2 @@
 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
-<cp:coreProperties xmlns:cp="http://schemas.openxmlformats.org/package/2006/metadata/core-properties" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:dcterms="http://purl.org/dc/terms/" xmlns:dcmitype="http://purl.org/dc/dcmitype/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><dc:creator>Bronik</dc:creator><cp:lastModifiedBy>Bronik</cp:lastModifiedBy><cp:revision>11</cp:revision><dcterms:created xsi:type="dcterms:W3CDTF">2024-02-16T15:42:00Z</dcterms:created><dcterms:modified xsi:type="dcterms:W3CDTF">2024-02-18T19:10:00Z</dcterms:modified></cp:coreProperties>
\ No newline at end of file
+<cp:coreProperties xmlns:cp="http://schemas.openxmlformats.org/package/2006/metadata/core-properties" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:dcterms="http://purl.org/dc/terms/" xmlns:dcmitype="http://purl.org/dc/dcmitype/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><dc:creator>Bronik</dc:creator><cp:lastModifiedBy>Bronik</cp:lastModifiedBy><cp:revision>26</cp:revision><dcterms:created xsi:type="dcterms:W3CDTF">2024-02-16T15:42:00Z</dcterms:created><dcterms:modified xsi:type="dcterms:W3CDTF">2025-05-13T20:31:00Z</dcterms:modified></cp:coreProperties>
\ No newline at end of file
diff --git a/Gostomizer.dotm/word/_rels/document.xml.rels b/RXE/Gostomizer.dotm/word/_rels/document.xml.rels
similarity index 100%
rename from Gostomizer.dotm/word/_rels/document.xml.rels
rename to RXE/Gostomizer.dotm/word/_rels/document.xml.rels
diff --git a/Gostomizer.dotm/word/_rels/vbaProject.bin.rels b/RXE/Gostomizer.dotm/word/_rels/vbaProject.bin.rels
similarity index 100%
rename from Gostomizer.dotm/word/_rels/vbaProject.bin.rels
rename to RXE/Gostomizer.dotm/word/_rels/vbaProject.bin.rels
diff --git a/Gostomizer.dotm/word/document.xml b/RXE/Gostomizer.dotm/word/document.xml
similarity index 84%
rename from Gostomizer.dotm/word/document.xml
rename to RXE/Gostomizer.dotm/word/document.xml
index cd8404f..dd9ff6e 100644
--- a/Gostomizer.dotm/word/document.xml
+++ b/RXE/Gostomizer.dotm/word/document.xml
@@ -1,2 +1,2 @@
 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
-<w:document xmlns:wpc="http://schemas.microsoft.com/office/word/2010/wordprocessingCanvas" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:wp14="http://schemas.microsoft.com/office/word/2010/wordprocessingDrawing" xmlns:wp="http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawing" xmlns:w10="urn:schemas-microsoft-com:office:word" xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:w14="http://schemas.microsoft.com/office/word/2010/wordml" xmlns:wpg="http://schemas.microsoft.com/office/word/2010/wordprocessingGroup" xmlns:wpi="http://schemas.microsoft.com/office/word/2010/wordprocessingInk" xmlns:wne="http://schemas.microsoft.com/office/word/2006/wordml" xmlns:wps="http://schemas.microsoft.com/office/word/2010/wordprocessingShape" mc:Ignorable="w14 wp14"><w:body><w:p w:rsidR="00BA0736" w:rsidRPr="0000106B" w:rsidRDefault="00BA0736" w:rsidP="0000106B"><w:bookmarkStart w:id="0" w:name="_GoBack"/><w:bookmarkEnd w:id="0"/></w:p><w:sectPr w:rsidR="00BA0736" w:rsidRPr="0000106B" w:rsidSect="0000106B"><w:pgSz w:w="11907" w:h="16839" w:code="9"/><w:pgMar w:top="1134" w:right="850" w:bottom="1134" w:left="1701" w:header="709" w:footer="709" w:gutter="0"/><w:cols w:space="708"/><w:docGrid w:linePitch="360"/></w:sectPr></w:body></w:document>
\ No newline at end of file
+<w:document xmlns:wpc="http://schemas.microsoft.com/office/word/2010/wordprocessingCanvas" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:wp14="http://schemas.microsoft.com/office/word/2010/wordprocessingDrawing" xmlns:wp="http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawing" xmlns:w10="urn:schemas-microsoft-com:office:word" xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:w14="http://schemas.microsoft.com/office/word/2010/wordml" xmlns:wpg="http://schemas.microsoft.com/office/word/2010/wordprocessingGroup" xmlns:wpi="http://schemas.microsoft.com/office/word/2010/wordprocessingInk" xmlns:wne="http://schemas.microsoft.com/office/word/2006/wordml" xmlns:wps="http://schemas.microsoft.com/office/word/2010/wordprocessingShape" mc:Ignorable="w14 wp14"><w:body><w:p w:rsidR="00BA0736" w:rsidRPr="00087257" w:rsidRDefault="00BA0736" w:rsidP="00087257"><w:bookmarkStart w:id="0" w:name="_GoBack"/><w:bookmarkEnd w:id="0"/></w:p><w:sectPr w:rsidR="00BA0736" w:rsidRPr="00087257" w:rsidSect="00087257"><w:pgSz w:w="11907" w:h="16840" w:code="9"/><w:pgMar w:top="1134" w:right="851" w:bottom="1134" w:left="1701" w:header="709" w:footer="709" w:gutter="0"/><w:cols w:space="708"/><w:docGrid w:linePitch="360"/></w:sectPr></w:body></w:document>
\ No newline at end of file
diff --git a/Gostomizer.dotm/word/fontTable.xml b/RXE/Gostomizer.dotm/word/fontTable.xml
similarity index 100%
rename from Gostomizer.dotm/word/fontTable.xml
rename to RXE/Gostomizer.dotm/word/fontTable.xml
diff --git a/RXE/Gostomizer.dotm/word/settings.xml b/RXE/Gostomizer.dotm/word/settings.xml
new file mode 100644
index 0000000..f46e01e
--- /dev/null
+++ b/RXE/Gostomizer.dotm/word/settings.xml
@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<w:settings xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:w10="urn:schemas-microsoft-com:office:word" xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:w14="http://schemas.microsoft.com/office/word/2010/wordml" xmlns:sl="http://schemas.openxmlformats.org/schemaLibrary/2006/main" mc:Ignorable="w14"><w:zoom w:percent="80"/><w:proofState w:spelling="clean" w:grammar="clean"/><w:defaultTabStop w:val="708"/><w:characterSpacingControl w:val="doNotCompress"/><w:compat><w:compatSetting w:name="compatibilityMode" w:uri="http://schemas.microsoft.com/office/word" w:val="14"/><w:compatSetting w:name="overrideTableStyleFontSizeAndJustification" w:uri="http://schemas.microsoft.com/office/word" w:val="1"/><w:compatSetting w:name="enableOpenTypeFeatures" w:uri="http://schemas.microsoft.com/office/word" w:val="1"/><w:compatSetting w:name="doNotFlipMirrorIndents" w:uri="http://schemas.microsoft.com/office/word" w:val="1"/></w:compat><w:rsids><w:rsidRoot w:val="00CD70D9"/><w:rsid w:val="0000106B"/><w:rsid w:val="00087257"/><w:rsid w:val="000D5AAF"/><w:rsid w:val="001C4D36"/><w:rsid w:val="00247978"/><w:rsid w:val="002868BB"/><w:rsid w:val="00303ACA"/><w:rsid w:val="00414C2F"/><w:rsid w:val="00480BEA"/><w:rsid w:val="005B667A"/><w:rsid w:val="00653826"/><w:rsid w:val="00665A59"/><w:rsid w:val="006E4EDE"/><w:rsid w:val="007C76A7"/><w:rsid w:val="00A01BA2"/><w:rsid w:val="00A73C77"/><w:rsid w:val="00BA0736"/><w:rsid w:val="00C824DD"/><w:rsid w:val="00C96EE3"/><w:rsid w:val="00CD70D9"/><w:rsid w:val="00D805F2"/><w:rsid w:val="00E63D10"/><w:rsid w:val="00E74B9E"/><w:rsid w:val="00ED4E70"/><w:rsid w:val="00F653A8"/></w:rsids><m:mathPr><m:mathFont m:val="Cambria Math"/><m:brkBin m:val="before"/><m:brkBinSub m:val="--"/><m:smallFrac m:val="0"/><m:dispDef/><m:lMargin m:val="0"/><m:rMargin m:val="0"/><m:defJc m:val="centerGroup"/><m:wrapIndent m:val="1440"/><m:intLim m:val="subSup"/><m:naryLim m:val="undOvr"/></m:mathPr><w:themeFontLang w:val="ru-RU"/><w:clrSchemeMapping w:bg1="light1" w:t1="dark1" w:bg2="light2" w:t2="dark2" w:accent1="accent1" w:accent2="accent2" w:accent3="accent3" w:accent4="accent4" w:accent5="accent5" w:accent6="accent6" w:hyperlink="hyperlink" w:followedHyperlink="followedHyperlink"/><w:shapeDefaults><o:shapedefaults v:ext="edit" spidmax="1026"/><o:shapelayout v:ext="edit"><o:idmap v:ext="edit" data="1"/></o:shapelayout></w:shapeDefaults><w:decimalSymbol w:val=","/><w:listSeparator w:val=";"/></w:settings>
\ No newline at end of file
diff --git a/Gostomizer.dotm/word/styles.xml b/RXE/Gostomizer.dotm/word/styles.xml
similarity index 100%
rename from Gostomizer.dotm/word/styles.xml
rename to RXE/Gostomizer.dotm/word/styles.xml
diff --git a/Gostomizer.dotm/word/stylesWithEffects.xml b/RXE/Gostomizer.dotm/word/stylesWithEffects.xml
similarity index 100%
rename from Gostomizer.dotm/word/stylesWithEffects.xml
rename to RXE/Gostomizer.dotm/word/stylesWithEffects.xml
diff --git a/Gostomizer.dotm/word/theme/theme1.xml b/RXE/Gostomizer.dotm/word/theme/theme1.xml
similarity index 100%
rename from Gostomizer.dotm/word/theme/theme1.xml
rename to RXE/Gostomizer.dotm/word/theme/theme1.xml
diff --git a/Gostomizer.dotm/word/vbaData.xml b/RXE/Gostomizer.dotm/word/vbaData.xml
similarity index 78%
rename from Gostomizer.dotm/word/vbaData.xml
rename to RXE/Gostomizer.dotm/word/vbaData.xml
index 14340cf..46b48f8 100644
--- a/Gostomizer.dotm/word/vbaData.xml
+++ b/RXE/Gostomizer.dotm/word/vbaData.xml
@@ -1,2 +1,2 @@
 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
-<wne:vbaSuppData xmlns:wpc="http://schemas.microsoft.com/office/word/2010/wordprocessingCanvas" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:wp14="http://schemas.microsoft.com/office/word/2010/wordprocessingDrawing" xmlns:wp="http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawing" xmlns:w10="urn:schemas-microsoft-com:office:word" xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:w14="http://schemas.microsoft.com/office/word/2010/wordml" xmlns:wpg="http://schemas.microsoft.com/office/word/2010/wordprocessingGroup" xmlns:wpi="http://schemas.microsoft.com/office/word/2010/wordprocessingInk" xmlns:wne="http://schemas.microsoft.com/office/word/2006/wordml" xmlns:wps="http://schemas.microsoft.com/office/word/2010/wordprocessingShape" mc:Ignorable="w14 wp14"><wne:mcds><wne:mcd wne:macroName="TEMPLATEPROJECT.NEWMACROS.МАКРОС1" wne:name="TemplateProject.NewMacros.Макрос1" wne:bEncrypt="00" wne:cmg="56"/></wne:mcds></wne:vbaSuppData>
\ No newline at end of file
+<wne:vbaSuppData xmlns:wpc="http://schemas.microsoft.com/office/word/2010/wordprocessingCanvas" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:wp14="http://schemas.microsoft.com/office/word/2010/wordprocessingDrawing" xmlns:wp="http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawing" xmlns:w10="urn:schemas-microsoft-com:office:word" xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:w14="http://schemas.microsoft.com/office/word/2010/wordml" xmlns:wpg="http://schemas.microsoft.com/office/word/2010/wordprocessingGroup" xmlns:wpi="http://schemas.microsoft.com/office/word/2010/wordprocessingInk" xmlns:wne="http://schemas.microsoft.com/office/word/2006/wordml" xmlns:wps="http://schemas.microsoft.com/office/word/2010/wordprocessingShape" mc:Ignorable="w14 wp14"><wne:mcds><wne:mcd wne:macroName="TEMPLATEPROJECT.MACROSLIST.ML_ADDLISTA4" wne:name="TemplateProject.MacrosList.ML_AddListA4" wne:bEncrypt="00" wne:cmg="56"/><wne:mcd wne:macroName="TEMPLATEPROJECT.MACROSLIST.ML_ADDLISTA3" wne:name="TemplateProject.MacrosList.ML_AddListA3" wne:bEncrypt="00" wne:cmg="56"/></wne:mcds></wne:vbaSuppData>
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/word/vbaProject.bin b/RXE/Gostomizer.dotm/word/vbaProject.bin
new file mode 100644
index 0000000..ab5260c
Binary files /dev/null and b/RXE/Gostomizer.dotm/word/vbaProject.bin differ
diff --git a/Gostomizer.dotm/word/webSettings.xml b/RXE/Gostomizer.dotm/word/webSettings.xml
similarity index 100%
rename from Gostomizer.dotm/word/webSettings.xml
rename to RXE/Gostomizer.dotm/word/webSettings.xml
diff --git a/RibbonCallbacks.bas b/RibbonCallbacks.bas
new file mode 100644
index 0000000..31250d5
--- /dev/null
+++ b/RibbonCallbacks.bas
@@ -0,0 +1,63 @@
+Option Explicit 'Потребовать явного объявления всех переменных в файле
+
+'TableFormatter (элемент: button, атрибут: onAction), 2010+
+Private Sub TableFormatter(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'PicFormatter (элемент: button, атрибут: onAction), 2010+
+Private Sub PicFormatter(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'AddListA4 (элемент: button, атрибут: onAction), 2010+
+Private Sub AddListA3(control As IRibbonControl)
+    'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+    
+    Call ML_AddListA4
+    
+End Sub
+
+'AddListA3 (элемент: button, атрибут: onAction), 2010+
+Private Sub AddListA4(control As IRibbonControl)
+    'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+    
+    Call ML_AddListA3
+       
+    
+End Sub
+
+'StampForm5 (элемент: button, атрибут: onAction), 2010+
+Private Sub AddStampForm5(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'StampForm6 (элемент: button, атрибут: onAction), 2010+
+Private Sub AddStampForm6(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'StampFrame (элемент: button, атрибут: onAction), 2010+
+Private Sub AddFrame(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'StampLeftUp (элемент: button, атрибут: onAction), 2010+
+Private Sub AddStampLeftUp(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'StampLeftDown (элемент: button, атрибут: onAction), 2010+
+Private Sub AddStampLeftDown(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'StampLeftMiddle (элемент: button, атрибут: onAction), 2010+
+Private Sub AddStampLefMid(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'StampPageNumber (элемент: button, атрибут: onAction), 2010+
+Private Sub AddPageNumber(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
\ No newline at end of file
diff --git a/modules.vbs b/modules.vbs
deleted file mode 100644
index 2a7caae..0000000
--- a/modules.vbs
+++ /dev/null
@@ -1,128 +0,0 @@
-Option Explicit 'Потребовать явного объявления всех переменных в файле
-
-'TableFormatter (элемент: button, атрибут: onAction), 2010+
-Private Sub TableFormatter(control As IRibbonControl)
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-End Sub
-
-'PicFormatter (элемент: button, атрибут: onAction), 2010+
-Private Sub PicFormatter(control As IRibbonControl)
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-End Sub
-
-'AddListA4 (элемент: button, атрибут: onAction), 2010+
-Private Sub AddListA3(control As IRibbonControl)
-    'for debug
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-    
-    Dim ps As PageSetup
-    
-    Set ps = Selection.PageSetup
-        
-    Selection.InsertBreak Type:=wdSectionBreakNextPage
-    With Selection.PageSetup
-        .LineNumbering.Active = False
-        .Orientation = wdOrientLandscape
-        .TopMargin = CentimetersToPoints(1.5)
-        .BottomMargin = CentimetersToPoints(3)
-        .LeftMargin = CentimetersToPoints(2)
-        .RightMargin = CentimetersToPoints(2)
-        .Gutter = CentimetersToPoints(0)
-        .HeaderDistance = CentimetersToPoints(1.25)
-        .FooterDistance = CentimetersToPoints(1.25)
-        .PageWidth = CentimetersToPoints(29.7)
-        .PageHeight = CentimetersToPoints(21)
-        .FirstPageTray = wdPrinterDefaultBin
-        .OtherPagesTray = wdPrinterDefaultBin
-        .SectionStart = wdSectionNewPage
-        .OddAndEvenPagesHeaderFooter = False
-        .DifferentFirstPageHeaderFooter = False
-        .VerticalAlignment = wdAlignVerticalTop
-        .SuppressEndnotes = False
-        .MirrorMargins = False
-        .TwoPagesOnOne = False
-        .BookFoldPrinting = False
-        .BookFoldRevPrinting = False
-        .BookFoldPrintingSheets = 1
-        .GutterPos = wdGutterPosLeft
-    End With
-    
-    Selection.InsertBreak Type:=wdSectionBreakNextPage
-    Selection.PageSetup = ps
-    
-End Sub
-
-'AddListA3 (элемент: button, атрибут: onAction), 2010+
-Private Sub AddListA4(control As IRibbonControl)
-    'for debug
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-     Selection.InsertBreak Type:=wdSectionBreakNextPage
-    With Selection.PageSetup
-        .LineNumbering.Active = False
-        .Orientation = wdOrientPortrait
-        .TopMargin = CentimetersToPoints(2)
-        .BottomMargin = CentimetersToPoints(2)
-        .LeftMargin = CentimetersToPoints(3)
-        .RightMargin = CentimetersToPoints(1.5)
-        .Gutter = CentimetersToPoints(0)
-        .HeaderDistance = CentimetersToPoints(1.25)
-        .FooterDistance = CentimetersToPoints(1.25)
-        .PageWidth = CentimetersToPoints(29.7)
-        .PageHeight = CentimetersToPoints(42)
-        .FirstPageTray = wdPrinterDefaultBin
-        .OtherPagesTray = wdPrinterDefaultBin
-        .SectionStart = wdSectionNewPage
-        .OddAndEvenPagesHeaderFooter = False
-        .DifferentFirstPageHeaderFooter = False
-        .VerticalAlignment = wdAlignVerticalTop
-        .SuppressEndnotes = False
-        .MirrorMargins = False
-        .TwoPagesOnOne = False
-        .BookFoldPrinting = False
-        .BookFoldRevPrinting = False
-        .BookFoldPrintingSheets = 1
-        .GutterPos = wdGutterPosLeft
-    End With
-    If Selection.PageSetup.Orientation = wdOrientPortrait Then
-        Selection.PageSetup.Orientation = wdOrientLandscape
-    Else
-        Selection.PageSetup.Orientation = wdOrientPortrait
-    End If
-    
-End Sub
-
-'StampForm5 (элемент: button, атрибут: onAction), 2010+
-Private Sub AddStampForm5(control As IRibbonControl)
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-End Sub
-
-'StampForm6 (элемент: button, атрибут: onAction), 2010+
-Private Sub AddStampForm6(control As IRibbonControl)
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-End Sub
-
-'StampFrame (элемент: button, атрибут: onAction), 2010+
-Private Sub AddFrame(control As IRibbonControl)
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-End Sub
-
-'StampLeftUp (элемент: button, атрибут: onAction), 2010+
-Private Sub AddStampLeftUp(control As IRibbonControl)
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-End Sub
-
-'StampLeftDown (элемент: button, атрибут: onAction), 2010+
-Private Sub AddStampLeftDown(control As IRibbonControl)
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-End Sub
-
-'StampLeftMiddle (элемент: button, атрибут: onAction), 2010+
-Private Sub AddStampLefMid(control As IRibbonControl)
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-End Sub
-
-'StampPageNumber (элемент: button, атрибут: onAction), 2010+
-Private Sub AddPageNumber(control As IRibbonControl)
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-End Sub
-