zbronik/Gostomizer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

обновление файлов Ribbon XML Editorm, сохранение

Browse Source 
отдельных файлов макросов, добавление результирующего файла гостомизатора
This commit is contained in:
zbronik
2025-05-13 23:35:35 +03:00
parent b8a26f4b7c
commit 129d1b6639
32 changed files with 159 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Gostomizer.dotm Normal file
View File

Binary file not shown.

2
Gostomizer.dotm/word/settings.xml
View File

@@ -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>

BIN
Gostomizer.dotm/word/vbaProject.bin
View File

Binary file not shown.

90
MacrosList.bas Normal file
View File

@@ -0,0 +1,90 @@
Attribute VB_Name = "MacrosList"
Sub ML_AddListA4()
'for debug
'MsgBox "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20>4"
MsgBox "<22><> 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 "<22><><EFBFBD><EFBFBD><EFBFBD> Selection.PageSetup.Orientation = " & Selection.PageSetup.Orientation
If Selection.PageSetup.Orientation = wdOrientPortrait Then
MsgBox "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
Selection.PageSetup.Orientation = wdOrientLandscape
Else
MsgBox "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
Selection.PageSetup.Orientation = wdOrientPortrait
End If
End Sub
Sub ML_AddListA3()
'for debug
MsgBox "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20>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

0
Gostomizer.dotm/[Content_Types].xml → RXE/Gostomizer.dotm/[Content_Types].xml
View File

0
Gostomizer.dotm/_rels/.rels → RXE/Gostomizer.dotm/_rels/.rels
View File

0
Gostomizer.dotm/customUI/_rels/customUI14.xml.rels → RXE/Gostomizer.dotm/customUI/_rels/customUI14.xml.rels
View File

0
Gostomizer.dotm/customUI/customUI14.xml → RXE/Gostomizer.dotm/customUI/customUI14.xml
View File

0
Gostomizer.dotm/customUI/images/Frame.png → RXE/Gostomizer.dotm/customUI/images/Frame.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 155 B

After

Width:  |  Height:  |  Size: 155 B

0
Gostomizer.dotm/customUI/images/StampForm5.png → RXE/Gostomizer.dotm/customUI/images/StampForm5.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 169 B

After

Width:  |  Height:  |  Size: 169 B

0
Gostomizer.dotm/customUI/images/StampForm6.png → RXE/Gostomizer.dotm/customUI/images/StampForm6.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 163 B

After

Width:  |  Height:  |  Size: 163 B

0
Gostomizer.dotm/customUI/images/StampLeftDown.png → RXE/Gostomizer.dotm/customUI/images/StampLeftDown.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 166 B

After

Width:  |  Height:  |  Size: 166 B

0
Gostomizer.dotm/customUI/images/StampLeftMiddle.png → RXE/Gostomizer.dotm/customUI/images/StampLeftMiddle.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 169 B

After

Width:  |  Height:  |  Size: 169 B

0
Gostomizer.dotm/customUI/images/StampLeftUp.png → RXE/Gostomizer.dotm/customUI/images/StampLeftUp.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 168 B

After

Width:  |  Height:  |  Size: 168 B

0
Gostomizer.dotm/customUI/images/StampPageNumber.png → RXE/Gostomizer.dotm/customUI/images/StampPageNumber.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 168 B

After

Width:  |  Height:  |  Size: 168 B

0
Gostomizer.dotm/customUI/images/a3.png → RXE/Gostomizer.dotm/customUI/images/a3.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 18 KiB

After

Width:  |  Height:  |  Size: 18 KiB

0
Gostomizer.dotm/customUI/images/a4.png → RXE/Gostomizer.dotm/customUI/images/a4.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 16 KiB

After

Width:  |  Height:  |  Size: 16 KiB

2
Gostomizer.dotm/docProps/app.xml → RXE/Gostomizer.dotm/docProps/app.xml
View File

@@ -1,2 +1,2 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <?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> <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>

2
Gostomizer.dotm/docProps/core.xml → RXE/Gostomizer.dotm/docProps/core.xml
View File

@@ -1,2 +1,2 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <?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> <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>

0
Gostomizer.dotm/word/_rels/document.xml.rels → RXE/Gostomizer.dotm/word/_rels/document.xml.rels
View File

0
Gostomizer.dotm/word/_rels/vbaProject.bin.rels → RXE/Gostomizer.dotm/word/_rels/vbaProject.bin.rels
View File

2
Gostomizer.dotm/word/document.xml → RXE/Gostomizer.dotm/word/document.xml
View File

@@ -1,2 +1,2 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <?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> <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>

0
Gostomizer.dotm/word/fontTable.xml → RXE/Gostomizer.dotm/word/fontTable.xml
View File

2
RXE/Gostomizer.dotm/word/settings.xml Normal file
View File

@@ -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>

0
Gostomizer.dotm/word/styles.xml → RXE/Gostomizer.dotm/word/styles.xml
View File

0
Gostomizer.dotm/word/stylesWithEffects.xml → RXE/Gostomizer.dotm/word/stylesWithEffects.xml
View File

0
Gostomizer.dotm/word/theme/theme1.xml → RXE/Gostomizer.dotm/word/theme/theme1.xml
View File

2
Gostomizer.dotm/word/vbaData.xml → RXE/Gostomizer.dotm/word/vbaData.xml
View File

@@ -1,2 +1,2 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <?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> <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>

BIN
RXE/Gostomizer.dotm/word/vbaProject.bin Normal file
View File

Binary file not shown.

0
Gostomizer.dotm/word/webSettings.xml → RXE/Gostomizer.dotm/word/webSettings.xml
View File

63
RibbonCallbacks.bas Normal file
View File

@@ -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

128
modules.vbs
View File

@@ -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