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

Добавление вставки вертикального А4

Browse Source
This commit is contained in:
zbronik
2025-06-02 22:59:38 +03:00
parent 053584fb26
commit ac027d6283
30 changed files with 234 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Gostomizer.dotm
View File

Binary file not shown.

203
MacrosList.bas
View File

@@ -54,6 +54,35 @@ Sub ML_AddListA4()
End Sub
Sub ML_AddListA4vert()
'for debug
'MsgBox "Запуск функции вставки листа А4 вертикального"
'Loas inserting as new chapter/breaks
Selection.InsertBreak Type:=wdSectionBreakNextPage
Selection.InsertBreak Type:=wdSectionBreakNextPage
Selection.MoveLeft Unit:=wdCharacter, Count:=1
'wdPaperSize - https://learn.microsoft.com/en-us/office/vba/api/word.wdpapersize
'wdPaperA3 = 6
'wdPaperA4 = 7
'WdOrientation - https://learn.microsoft.com/ru-ru/office/vba/api/word.wdorientation
'wdOrientPortrait = 0
'wdOrientLandscape =1
With Selection.PageSetup
.PaperSize = wdPaperA4
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(2)
.BottomMargin = CentimetersToPoints(2)
.LeftMargin = CentimetersToPoints(3)
.RightMargin = CentimetersToPoints(1.5)
End With
End Sub
Sub ML_AddListA3()
'for debug
'MsgBox "Запуск функции вставки листа А3"
@@ -68,6 +97,10 @@ Sub ML_AddListA3()
'wdPaperA3 = 6
'wdPaperA4 = 7
'WdOrientation - https://learn.microsoft.com/ru-ru/office/vba/api/word.wdorientation
'wdOrientPortrait = 0
'wdOrientLandscape =1
With Selection.PageSetup
.PaperSize = wdPaperA3
.Orientation = wdOrientLandscape
@@ -360,6 +393,176 @@ Sub ML_PicFormatter()
End Sub
Sub ML_AddStyle()
'Добавление стиля для названия рисунка
ActiveDocument.Styles.Add Name:="Название Рисунка", Type:= _
wdStyleTypeParagraph
ActiveDocument.Styles("Название Рисунка").AutomaticallyUpdate = False
With ActiveDocument.Styles("Название Рисунка").Font
.Name = "Arial"
.Size = 14
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Scaling = 100
.Kerning = 0
.Animation = wdAnimationNone
.Ligatures = wdLigaturesNone
.NumberSpacing = wdNumberSpacingDefault
.NumberForm = wdNumberFormDefault
.StylisticSet = wdStylisticSetDefault
.ContextualAlternates = 0
End With
With ActiveDocument.Styles("Название Рисунка").ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 6
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpace1pt5
.Alignment = wdAlignParagraphCenter
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
End With
ActiveDocument.Styles("Название Рисунка"). _
NoSpaceBetweenParagraphsOfSameStyle = False
ActiveDocument.Styles("Название Рисунка").ParagraphFormat.TabStops. _
ClearAll
With ActiveDocument.Styles("Название Рисунка").ParagraphFormat
With .Shading
.Texture = wdTextureNone
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = wdColorAutomatic
End With
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
With .Borders
.DistanceFromTop = 1
.DistanceFromLeft = 4
.DistanceFromBottom = 1
.DistanceFromRight = 4
.Shadow = False
End With
End With
ActiveDocument.Styles("Название Рисунка").LanguageID = wdRussian
ActiveDocument.Styles("Название Рисунка").NoProofing = False
ActiveDocument.Styles("Название Рисунка").Frame.Delete
'Добавление стиля для названия таблицы
ActiveDocument.Styles.Add Name:="Название Таблицы", Type:= _
wdStyleTypeParagraph
ActiveDocument.Styles("Название Таблицы").AutomaticallyUpdate = False
With ActiveDocument.Styles("Название Таблицы").Font
.Name = "Arial"
.Size = 14
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Scaling = 100
.Kerning = 0
.Animation = wdAnimationNone
.Ligatures = wdLigaturesNone
.NumberSpacing = wdNumberSpacingDefault
.NumberForm = wdNumberFormDefault
.StylisticSet = wdStylisticSetDefault
.ContextualAlternates = 0
End With
With ActiveDocument.Styles("Название Таблицы").ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
End With
ActiveDocument.Styles("Название Таблицы"). _
NoSpaceBetweenParagraphsOfSameStyle = False
ActiveDocument.Styles("Название Таблицы").ParagraphFormat.TabStops.ClearAll
With ActiveDocument.Styles("Название Таблицы").ParagraphFormat
With .Shading
.Texture = wdTextureNone
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = wdColorAutomatic
End With
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
With .Borders
.DistanceFromTop = 1
.DistanceFromLeft = 4
.DistanceFromBottom = 1
.DistanceFromRight = 4
.Shadow = False
End With
End With
ActiveDocument.Styles("Название Таблицы").LanguageID = wdRussian
ActiveDocument.Styles("Название Таблицы").NoProofing = False
ActiveDocument.Styles("Название Таблицы").Frame.Delete
End Sub
Sub ML_TestMacros()
MsgBox ("Хоба!")

11
README.md
View File

@@ -10,7 +10,8 @@ C:\Users\[ИмяПользователя]\AppData\Roaming\Microsoft\Word\STARTUP
1. Форматирование таблицы по ГОСТ;
2. Форматирование картинки со вставкой названия. Размер картинки уменьшается до определенного размера, который зависит от формата (а3/а4) и ориентации листа (портретный/альбомный);
3. Добавление нового раздела после курсора с горизонтальным листом А4;
4. Добавление нового раздела после курсора с горизонтальным листом А3;
4. Добавление нового раздела после курсора с вертикальным листом А4;
5. Добавление нового раздела после курсора с горизонтальным листом А3;
## Планируемые функции
@@ -18,13 +19,13 @@ C:\Users\[ИмяПользователя]\AppData\Roaming\Microsoft\Word\STARTUP
2. Вставка штампов целиком и частями
3. Добавления ряда интересных функций из addin_wordtools
4. Добавления ряда интересных функций из addin_macrotoolsword
5. вставка вертикальных листов как опция, выбор по выпадающему списку из кнопки
6. Добавление подготовленных стилей в документ, чтобы форматирование картинки или таблицы происходило корректно. Изменение текущих стилей документа. Или приведение стилей к определенному шаблону.
5. Добавление подготовленных стилей в документ, чтобы форматирование картинки или таблицы происходило корректно. Изменение текущих стилей документа. Или приведение стилей к определенному шаблону. Название стилей в виде "ГОСТ Основной текст", "ГОСТ Название рисунка", итд.
## Планируемые доработки скриптов
1. Форматирование таблицы - автоматическое определение формата листа и подгон ширины под формат листа.
2. Вставка горизонтального листа. После вставки горинзонтального листа следующие страницы превращаются также в горизонтальные. Надо сделать так чтобы вставлялся только один горизонтальный лист как раздел, а следующие разделы шли без изменения.
3. Добавить в форматирование таблицы вставку названия
2. Добавить в форматирование таблицы вставку названия
## Выполненные доработки
1. Добавлена функция форматирования картинки со вставкой названия. Размер картинки уменьшается до определенного размера, который зависит от формата (а3/а4) и ориентации листа (портретный/альбомный);
2. Вставка вертикального А4 как нового раздела после курсора. Релизовано как SplitButton
3. Вставка горизонтального листа. После вставки горинзонтального листа следующие страницы превращаются также в горизонтальные. Надо сделать так чтобы вставлялся только один горизонтальный лист как раздел, а следующие разделы шли без изменения.

2
RXE/Gostomizer.dotm/[Content_Types].xml
View File

@@ -1,2 +0,0 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Types xmlns="http://schemas.openxmlformats.org/package/2006/content-types"><Default Extension="bin" ContentType="application/vnd.ms-office.vbaProject"/><Default Extension="png" ContentType="image/png"/><Default Extension="rels" ContentType="application/vnd.openxmlformats-package.relationships+xml"/><Default Extension="xml" ContentType="application/xml"/><Override PartName="/word/document.xml" ContentType="application/vnd.ms-word.template.macroEnabledTemplate.main+xml"/><Override PartName="/word/vbaData.xml" ContentType="application/vnd.ms-word.vbaData+xml"/><Override PartName="/word/styles.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.styles+xml"/><Override PartName="/word/stylesWithEffects.xml" ContentType="application/vnd.ms-word.stylesWithEffects+xml"/><Override PartName="/word/settings.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.settings+xml"/><Override PartName="/word/webSettings.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.webSettings+xml"/><Override PartName="/word/fontTable.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.fontTable+xml"/><Override PartName="/word/theme/theme1.xml" ContentType="application/vnd.openxmlformats-officedocument.theme+xml"/><Override PartName="/docProps/core.xml" ContentType="application/vnd.openxmlformats-package.core-properties+xml"/><Override PartName="/docProps/app.xml" ContentType="application/vnd.openxmlformats-officedocument.extended-properties+xml"/></Types>

2
RXE/Gostomizer.dotm/_rels/.rels
View File

@@ -1,2 +0,0 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships"><Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/><Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/><Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="word/document.xml"/><Relationship Id="customUI2010RelID" Type="http://schemas.microsoft.com/office/2007/relationships/ui/extensibility" Target="customUI/customUI14.xml"/></Relationships>

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

@@ -1,2 +0,0 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships"><Relationship Id="a3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/a3.png"/><Relationship Id="Frame" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/Frame.png"/><Relationship Id="StampLeftUp" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/StampLeftUp.png"/><Relationship Id="StampForm6" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/StampForm6.png"/><Relationship Id="StampPageNumber" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/StampPageNumber.png"/><Relationship Id="StampForm5" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/StampForm5.png"/><Relationship Id="a4" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/a4.png"/><Relationship Id="StampLeftDown" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/StampLeftDown.png"/><Relationship Id="StampLeftMiddle" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/StampLeftMiddle.png"/></Relationships>

40
RXE/Gostomizer.dotm/customUI/customUI14.xml
View File

@@ -1,40 +0,0 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="Gostomizer" label="Гостомизатор">
<group id="GroupFormat" label="Форматирование">
<button id="TableFormatter" label="Таблица по ГОСТ" size="large" imageMso="GroupTableSelect" onAction="TableFormatter"/>
<button id="PicFormatter" label="Картинка" size="large" imageMso="GroupPictureStyles" onAction="PicFormatter"/>
</group>
<group id="GroupList" label="Добавить листы">
<button id="AddListA4" label="Добавить А4" size="large" image="a4" onAction="AddListA3" />
<button id="AddListA3" label="Добавить А3" size="large" image="a3" onAction="AddListA4"/>
</group>
<group id="GroupStamp" label="Штампы">
<button id="StampForm5" label="Форма 5" size="large" image="StampForm5" onAction="AddStampForm5"/>
<button id="StampForm6" label="Форма 6" size="large" image="StampForm6" onAction="AddStampForm6"/>
<separator id="sep1" />
<box id="box1" boxStyle="vertical">
<button id="StampFrame" label="Рамка" image="Frame" onAction="AddFrame"/>
<button id="StampLeftUp" label="Верхний" image="StampLeftUp" onAction="AddStampLeftUp"/>
<button id="StampLeftDown" label="Нижний" image="StampLeftDown" onAction="AddStampLeftDown"/>
<button id="StampLeftMiddle" label="Согласование" image="StampLeftMiddle" onAction="AddStampLefMid"/>
<button id="StampPageNumber" label="Номер страныцы" image="StampPageNumber" onAction="AddPageNumber"/>
</box>
<!-- <splitButton id="split1" >
<button id="StampFrame" label="Рамка" image="Рамка"/>
<button id="StampLeftUp" label="Верхний" image="Боковой_верхний"/>
<button id="StampLeftDown" label="Нижний" image="Боковой_нижний"/>
<button id="StampLeftMiddle" label="Согласование" image="Боковой_согласование"/>
<button id="StampPageNumber" label="Номер страныцы" image="Номер_страницы"/>
</splitButton> -->
</group>
</tab>
</tabs>
</ribbon>
</customUI>

BIN
RXE/Gostomizer.dotm/customUI/images/Frame.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 155 B

BIN
RXE/Gostomizer.dotm/customUI/images/StampForm5.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 169 B

BIN
RXE/Gostomizer.dotm/customUI/images/StampForm6.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 163 B

BIN
RXE/Gostomizer.dotm/customUI/images/StampLeftDown.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 166 B

BIN
RXE/Gostomizer.dotm/customUI/images/StampLeftMiddle.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 169 B

BIN
RXE/Gostomizer.dotm/customUI/images/StampLeftUp.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 168 B

BIN
RXE/Gostomizer.dotm/customUI/images/StampPageNumber.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 168 B

BIN
RXE/Gostomizer.dotm/customUI/images/a3.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 18 KiB

BIN
RXE/Gostomizer.dotm/customUI/images/a4.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 16 KiB

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

@@ -1,2 +0,0 @@
<?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>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
RXE/Gostomizer.dotm/docProps/core.xml
View File

@@ -1,2 +0,0 @@
<?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>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>

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

@@ -1,2 +0,0 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships"><Relationship Id="rId3" Type="http://schemas.microsoft.com/office/2007/relationships/stylesWithEffects" Target="stylesWithEffects.xml"/><Relationship Id="rId7" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/theme" Target="theme/theme1.xml"/><Relationship Id="rId2" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/styles" Target="styles.xml"/><Relationship Id="rId1" Type="http://schemas.microsoft.com/office/2006/relationships/vbaProject" Target="vbaProject.bin"/><Relationship Id="rId6" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/fontTable" Target="fontTable.xml"/><Relationship Id="rId5" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/webSettings" Target="webSettings.xml"/><Relationship Id="rId4" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/settings" Target="settings.xml"/></Relationships>

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

@@ -1,2 +0,0 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships"><Relationship Id="rId1" Type="http://schemas.microsoft.com/office/2006/relationships/wordVbaData" Target="vbaData.xml"/></Relationships>

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

@@ -1,2 +0,0 @@
<?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="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>

2
RXE/Gostomizer.dotm/word/fontTable.xml
View File

@@ -1,2 +0,0 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<w:fonts xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:w14="http://schemas.microsoft.com/office/word/2010/wordml" mc:Ignorable="w14"><w:font w:name="Calibri"><w:panose1 w:val="020F0502020204030204"/><w:charset w:val="CC"/><w:family w:val="swiss"/><w:pitch w:val="variable"/><w:sig w:usb0="E4002EFF" w:usb1="C000247B" w:usb2="00000009" w:usb3="00000000" w:csb0="000001FF" w:csb1="00000000"/></w:font><w:font w:name="Times New Roman"><w:panose1 w:val="02020603050405020304"/><w:charset w:val="CC"/><w:family w:val="roman"/><w:pitch w:val="variable"/><w:sig w:usb0="E0002EFF" w:usb1="C000785B" w:usb2="00000009" w:usb3="00000000" w:csb0="000001FF" w:csb1="00000000"/></w:font><w:font w:name="Cambria"><w:panose1 w:val="02040503050406030204"/><w:charset w:val="CC"/><w:family w:val="roman"/><w:pitch w:val="variable"/><w:sig w:usb0="E00006FF" w:usb1="420024FF" w:usb2="02000000" w:usb3="00000000" w:csb0="0000019F" w:csb1="00000000"/></w:font></w:fonts>

2
RXE/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="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>

2
RXE/Gostomizer.dotm/word/styles.xml
View File

File diff suppressed because one or more lines are too long

2
RXE/Gostomizer.dotm/word/stylesWithEffects.xml
View File

File diff suppressed because one or more lines are too long

2
RXE/Gostomizer.dotm/word/theme/theme1.xml
View File

File diff suppressed because one or more lines are too long

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

@@ -1,2 +0,0 @@
<?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.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
View File

Binary file not shown.

2
RXE/Gostomizer.dotm/word/webSettings.xml
View File

@@ -1,2 +0,0 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<w:webSettings xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:w14="http://schemas.microsoft.com/office/word/2010/wordml" mc:Ignorable="w14"><w:optimizeForBrowser/><w:allowPNG/></w:webSettings>

23
RibbonCallbacks.bas
View File

@@ -20,7 +20,7 @@ End Sub
Private Sub AddListA3(control As IRibbonControl)
'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
Call ML_AddListA4
Call ML_AddListA3
End Sub
@@ -28,7 +28,15 @@ End Sub
Private Sub AddListA4(control As IRibbonControl)
'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
Call ML_AddListA3
Call ML_AddListA4
End Sub
'AddListA4vert элемент button, атрибут onAction), 2010+
Private Sub AddListA4vert(control As IRibbonControl)
'MsgBox "Сработала процедура, заданная в onAction элемента" & control.ID
Call ML_AddListA4vert
End Sub
@@ -72,3 +80,14 @@ Private Sub TestMacros(control As IRibbonControl)
'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
Call ML_TestMacros
End Sub
'btnInstallAddin (элемент: button, атрибут: onAction), 2010+
Private Sub InstallAddin(control As IRibbonControl)
MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
End Sub
'btnInstallStyle (элемент: button, атрибут: onAction), 2010+
Private Sub InstallTextStyle(control As IRibbonControl)
'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
Call ML_AddStyle
End Sub