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

MacrosList.bas

@@ -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 ("Хоба!")

README.md

@@ -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. вставка вертикальных листов как опция, выбор по выпадающему списку из кнопки
+5. Добавление подготовленных стилей в документ, чтобы форматирование картинки или таблицы происходило корректно. Изменение текущих стилей документа. Или приведение стилей к определенному шаблону. Название стилей в виде "ГОСТ Основной текст", "ГОСТ Название рисунка", итд. 
-6. Добавление подготовленных стилей в документ, чтобы форматирование картинки или таблицы происходило корректно. Изменение текущих стилей документа. Или приведение стилей к определенному шаблону.
 
 ## Планируемые доработки скриптов
 1. Форматирование таблицы - автоматическое определение формата листа и подгон ширины под формат листа.
-2. Вставка горизонтального листа. После вставки горинзонтального листа следующие страницы превращаются также в горизонтальные. Надо сделать так чтобы вставлялся только один горизонтальный лист как раздел, а следующие разделы шли без изменения.
+2. Добавить в форматирование таблицы вставку названия
-3. Добавить в форматирование таблицы вставку названия
 
 ## Выполненные доработки
-1. Добавлена функция форматирования картинки со вставкой названия. Размер картинки уменьшается до определенного размера, который зависит от формата (а3/а4) и ориентации листа (портретный/альбомный);
+1. Добавлена функция форматирования картинки со вставкой названия. Размер картинки уменьшается до определенного размера, который зависит от формата (а3/а4) и ориентации листа (портретный/альбомный);
+2. Вставка вертикального А4 как нового раздела после курсора. Релизовано как SplitButton
+3. Вставка горизонтального листа. После вставки горинзонтального листа следующие страницы превращаются также в горизонтальные. Надо сделать так чтобы вставлялся только один горизонтальный лист как раздел, а следующие разделы шли без изменения.

RXE/Gostomizer.dotm/[Content_Types].xml

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

RXE/Gostomizer.dotm/_rels/.rels

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

RXE/Gostomizer.dotm/customUI/_rels/customUI14.xml.rels

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

RXE/Gostomizer.dotm/customUI/customUI14.xml

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

RXE/Gostomizer.dotm/docProps/app.xml

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

RXE/Gostomizer.dotm/docProps/core.xml

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

RXE/Gostomizer.dotm/word/_rels/document.xml.rels

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

RXE/Gostomizer.dotm/word/_rels/vbaProject.bin.rels

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

RXE/Gostomizer.dotm/word/document.xml

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

RXE/Gostomizer.dotm/word/fontTable.xml

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

RXE/Gostomizer.dotm/word/settings.xml

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

RXE/Gostomizer.dotm/word/vbaData.xml

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

RXE/Gostomizer.dotm/word/webSettings.xml

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

RibbonCallbacks.bas

@@ -11,16 +11,16 @@ End Sub
 'PicFormatter (элемент: button, атрибут: onAction), 2010+
 Private Sub PicFormatter(control As IRibbonControl)
     'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-
+    
     Call ML_PicFormatter
-
+    
 End Sub
 
 'AddListA4 (элемент: button, атрибут: onAction), 2010+
 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
 
@@ -71,4 +79,15 @@ End Sub
 Private Sub TestMacros(control As IRibbonControl)
     'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
     Call ML_TestMacros
-End Sub
+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