иии

таблицы, Название русунка, Маркированный многоуровневый (-)

Excel_idea.md

@@ -0,0 +1,77 @@
+
+## Идеи расширения для Excel
+1. Поиск русских букв в латинице и наоборот
+2. Кнопка переключения стиля сслык R1C1 на А1 и обратно
+3. Объединение ячеек без потери текста и разъединение обратно  
+4. автоматическая установка расширения при открытии
+Отображение скрытых строк
+Иногда большие файлы Excel можно содержать скрытые строки для большей ясности И для лучшего удобства пользователей. Вот один макрос, который отобразит все строки из активной рабочей таблицы:
+
+Sub ShowHiddenRows()
+    Columns.EntireColumn.Hidden = False
+    Rows.EntireRow.Hidden = False
+End Sub
+
+Удаление пустых строк и столбов
+Пустые строки в Excel - может быть проблемой для обработки данных. Вот как избавиться от них:
+
+Sub DeleteEmptyRowsAndColumns()
+    'Declare your variables.
+        Dim MyRange As Range
+        Dim iCounter As Long
+    'Define the target Range.
+        Set MyRange = ActiveSheet.UsedRange
+        'Start reverse looping through the range of Rows.
+        For iCounter = MyRange.Rows.Count To 1 Step -1
+    'If entire row is empty then delete it.
+           If Application.CountA(Rows(iCounter).EntireRow) = 0 Then
+               Rows(iCounter).Delete
+               'Remove comment to See which are the empty rows
+               'MsgBox "row " & iCounter & " is empty"
+           End If
+    'Increment the counter down
+        Next iCounter
+    'Step 6:  Start reverse looping through the range of Columns.
+        For iCounter = MyRange.Columns.Count To 1 Step -1
+    'Step 7: If entire column is empty then delete it.
+               If Application.CountA(Columns(iCounter).EntireColumn) = 0 Then
+                Columns(iCounter).Delete
+               End If
+    'Step 8: Increment the counter down
+        Next iCounter      
+End Sub
+
+транслитерация текста 
+Function Translit(Txt As String) As String
+ 
+    Dim Rus As Variant
+    Rus = Array("а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", _
+    "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", _
+    "щ", "ъ", "ы", "ь", "э", "ю", "я", "А", "Б", "В", "Г", "Д", "Е", _
+    "Ё", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", _
+    "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ъ", "Ы", "Ь", "Э", "Ю", "Я")
+ 
+    Dim Eng As Variant
+    Eng = Array("a", "b", "v", "g", "d", "e", "jo", "zh", "z", "i", "j", _
+    "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "kh", "ts", "ch", _
+    "sh", "sch", "''", "y", "'", "e", "yu", "ya", "A", "B", "V", "G", "D", _
+    "E", "JO", "ZH", "Z", "I", "J", "K", "L", "M", "N", "O", "P", "R", _
+    "S", "T", "U", "F", "KH", "TS", "CH", "SH", "SCH", "''", "Y", "'", "E", "YU", "YA")
+     
+    For I = 1 To Len(Txt)
+        с = Mid(Txt, I, 1)
+     
+        flag = 0
+        For J = 0 To 65
+            If Rus(J) = с Then
+                outchr = Eng(J)
+                flag = 1
+                Exit For
+            End If
+        Next J
+        If flag Then outstr = outstr & outchr Else outstr = outstr & с
+    Next I
+     
+    Translit = outstr
+     
+End Function

README.md

@@ -1,2 +1,49 @@
 # Gostomizer
+Расширение для Word. Создает дополнительную вкладку с набором полезных для меня функций
+
+## Как установить
+Разместить файл по следующему пути:
+C:\Users\[ИмяПользователя]\AppData\Roaming\Microsoft\Word\STARTUP
+
+
+## Текущий набор функций:
+1. Форматирование таблицы по ГОСТ;
+2. Форматирование картинки со вставкой названия. Размер картинки уменьшается до определенного размера, который зависит от формата (а3/а4) и ориентации листа (портретный/альбомный);
+3. Добавление нового раздела после курсора с горизонтальным листом А4;
+4. Добавление нового раздела после курсора с вертикальным листом А4;
+5. Добавление нового раздела после курсора с горизонтальным листом А3;
+6. Добавление подготовленных стилей в документ, чтобы форматирование картинки или таблицы происходило корректно, т.к. макросы форматирования картинок и таблиц ссылаются на определенные стили. Название доавляемых стилей в виде "ГОСТ Основной текст", "ГОСТ Название рисунка", итд. Необходимые стили:
+   6.1. Обычный текст - ок.
+   6.2. Название рисунка - ок.
+   6.3. Название таблицы - ок.
+   6.4. Нумерованый многоуровневый список - ок.
+   6.5. Маркированый многоуровневый список - ок.
+   
+
+
+
+## Планируемые функции
+1. Копирование стилей в шаблон пользователя Normal.dot через StyleOrganizer
+2. Автоматическая установка расширения при открытии
+3. Вставка штампов целиком и частями
+4. Добавления ряда интересных функций из addin_wordtools
+5. Добавления ряда интересных функций из addin_macrotoolsword
+
+    
+
+## Планируемые доработки скриптов
+1. Форматирование таблицы - автоматическое определение формата листа и подгон ширины под формат листа.
+2. Добавить в форматирование таблицы вставку названия
+3. Применение стиля к насзванию рисунка и названию таблицы
+4. Проверка наличия стиля для названия рисунка и таблицы
+
+
+## Changelog
+1. Добавлена функция форматирования картинки со вставкой названия. Размер картинки уменьшается до определенного размера, который зависит от формата (а3/а4) и ориентации листа (портретный/альбомный);
+2. Вставка вертикального А4 как нового раздела после курсора. Релизовано как SplitButton
+3. Вставка горизонтального листа. После вставки горинзонтального листа следующие страницы превращаются также в горизонтальные. Надо сделать так чтобы вставлялся только один горизонтальный лист как раздел, а следующие разделы шли без изменения.
+4. 2025.07.04. Добавлена вставка стилей: "Основной текст", "Название руисунка", "Название таблицы", "Маркированный многоуровневый (-)", "Нумерованный Многоуровневый (-)"
+
+
+
 

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

@@ -2,19 +2,25 @@ Option Explicit 'Потребовать явного объявления все
 
 'TableFormatter (элемент: button, атрибут: onAction), 2010+
 Private Sub TableFormatter(control As IRibbonControl)
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+    'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+    
+    Call ML_TableFormatter
+       
 End Sub
 
 'PicFormatter (элемент: button, атрибут: onAction), 2010+
 Private Sub PicFormatter(control As IRibbonControl)
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+    '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
 
@@ -22,8 +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
 
@@ -61,3 +74,20 @@ End Sub
 Private Sub AddPageNumber(control As IRibbonControl)
     MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
 End Sub
+
+'TestMacros (элемент: button, атрибут: onAction), 2010+
+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