diff --git a/Gostomizer.dotm b/Gostomizer.dotm
index 6c02d12..67f27b4 100644
Binary files a/Gostomizer.dotm and b/Gostomizer.dotm differ
diff --git a/MacrosList.bas b/MacrosList.bas
index 10a16f8..a1e658a 100644
--- a/MacrosList.bas
+++ b/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 ("Хоба!")
diff --git a/README.md b/README.md
index 8e7b383..f080975 100644
--- a/README.md
+++ b/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. вставка вертикальных листов как опция, выбор по выпадающему списку из кнопки
-6. Добавление подготовленных стилей в документ, чтобы форматирование картинки или таблицы происходило корректно. Изменение текущих стилей документа. Или приведение стилей к определенному шаблону.
+5. Добавление подготовленных стилей в документ, чтобы форматирование картинки или таблицы происходило корректно. Изменение текущих стилей документа. Или приведение стилей к определенному шаблону. Название стилей в виде "ГОСТ Основной текст", "ГОСТ Название рисунка", итд.
## Планируемые доработки скриптов
1. Форматирование таблицы - автоматическое определение формата листа и подгон ширины под формат листа.
-2. Вставка горизонтального листа. После вставки горинзонтального листа следующие страницы превращаются также в горизонтальные. Надо сделать так чтобы вставлялся только один горизонтальный лист как раздел, а следующие разделы шли без изменения.
-3. Добавить в форматирование таблицы вставку названия
+2. Добавить в форматирование таблицы вставку названия
## Выполненные доработки
-1. Добавлена функция форматирования картинки со вставкой названия. Размер картинки уменьшается до определенного размера, который зависит от формата (а3/а4) и ориентации листа (портретный/альбомный);
\ No newline at end of file
+1. Добавлена функция форматирования картинки со вставкой названия. Размер картинки уменьшается до определенного размера, который зависит от формата (а3/а4) и ориентации листа (портретный/альбомный);
+2. Вставка вертикального А4 как нового раздела после курсора. Релизовано как SplitButton
+3. Вставка горизонтального листа. После вставки горинзонтального листа следующие страницы превращаются также в горизонтальные. Надо сделать так чтобы вставлялся только один горизонтальный лист как раздел, а следующие разделы шли без изменения.
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/[Content_Types].xml b/RXE/Gostomizer.dotm/[Content_Types].xml
deleted file mode 100644
index 66dc220..0000000
--- a/RXE/Gostomizer.dotm/[Content_Types].xml
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/_rels/.rels b/RXE/Gostomizer.dotm/_rels/.rels
deleted file mode 100644
index 4d1aeac..0000000
--- a/RXE/Gostomizer.dotm/_rels/.rels
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/customUI/_rels/customUI14.xml.rels b/RXE/Gostomizer.dotm/customUI/_rels/customUI14.xml.rels
deleted file mode 100644
index dd3eca7..0000000
--- a/RXE/Gostomizer.dotm/customUI/_rels/customUI14.xml.rels
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/customUI/customUI14.xml b/RXE/Gostomizer.dotm/customUI/customUI14.xml
deleted file mode 100644
index 5a27032..0000000
--- a/RXE/Gostomizer.dotm/customUI/customUI14.xml
+++ /dev/null
@@ -1,40 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/customUI/images/Frame.png b/RXE/Gostomizer.dotm/customUI/images/Frame.png
deleted file mode 100644
index e326351..0000000
Binary files a/RXE/Gostomizer.dotm/customUI/images/Frame.png and /dev/null differ
diff --git a/RXE/Gostomizer.dotm/customUI/images/StampForm5.png b/RXE/Gostomizer.dotm/customUI/images/StampForm5.png
deleted file mode 100644
index 210e8cf..0000000
Binary files a/RXE/Gostomizer.dotm/customUI/images/StampForm5.png and /dev/null differ
diff --git a/RXE/Gostomizer.dotm/customUI/images/StampForm6.png b/RXE/Gostomizer.dotm/customUI/images/StampForm6.png
deleted file mode 100644
index e822c8d..0000000
Binary files a/RXE/Gostomizer.dotm/customUI/images/StampForm6.png and /dev/null differ
diff --git a/RXE/Gostomizer.dotm/customUI/images/StampLeftDown.png b/RXE/Gostomizer.dotm/customUI/images/StampLeftDown.png
deleted file mode 100644
index a334cf4..0000000
Binary files a/RXE/Gostomizer.dotm/customUI/images/StampLeftDown.png and /dev/null differ
diff --git a/RXE/Gostomizer.dotm/customUI/images/StampLeftMiddle.png b/RXE/Gostomizer.dotm/customUI/images/StampLeftMiddle.png
deleted file mode 100644
index 5108206..0000000
Binary files a/RXE/Gostomizer.dotm/customUI/images/StampLeftMiddle.png and /dev/null differ
diff --git a/RXE/Gostomizer.dotm/customUI/images/StampLeftUp.png b/RXE/Gostomizer.dotm/customUI/images/StampLeftUp.png
deleted file mode 100644
index 86150ef..0000000
Binary files a/RXE/Gostomizer.dotm/customUI/images/StampLeftUp.png and /dev/null differ
diff --git a/RXE/Gostomizer.dotm/customUI/images/StampPageNumber.png b/RXE/Gostomizer.dotm/customUI/images/StampPageNumber.png
deleted file mode 100644
index e8012d4..0000000
Binary files a/RXE/Gostomizer.dotm/customUI/images/StampPageNumber.png and /dev/null differ
diff --git a/RXE/Gostomizer.dotm/customUI/images/a3.png b/RXE/Gostomizer.dotm/customUI/images/a3.png
deleted file mode 100644
index 9c68dcf..0000000
Binary files a/RXE/Gostomizer.dotm/customUI/images/a3.png and /dev/null differ
diff --git a/RXE/Gostomizer.dotm/customUI/images/a4.png b/RXE/Gostomizer.dotm/customUI/images/a4.png
deleted file mode 100644
index f12b23c..0000000
Binary files a/RXE/Gostomizer.dotm/customUI/images/a4.png and /dev/null differ
diff --git a/RXE/Gostomizer.dotm/docProps/app.xml b/RXE/Gostomizer.dotm/docProps/app.xml
deleted file mode 100644
index 7a89a52..0000000
--- a/RXE/Gostomizer.dotm/docProps/app.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-
-Gostomizer.dotm68100Microsoft Office Word000falseНазвание1false0falsefalse14.0000
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/docProps/core.xml b/RXE/Gostomizer.dotm/docProps/core.xml
deleted file mode 100644
index 1de5727..0000000
--- a/RXE/Gostomizer.dotm/docProps/core.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-
-BronikBronik262024-02-16T15:42:00Z2025-05-13T20:31:00Z
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/word/_rels/document.xml.rels b/RXE/Gostomizer.dotm/word/_rels/document.xml.rels
deleted file mode 100644
index 3a313aa..0000000
--- a/RXE/Gostomizer.dotm/word/_rels/document.xml.rels
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/word/_rels/vbaProject.bin.rels b/RXE/Gostomizer.dotm/word/_rels/vbaProject.bin.rels
deleted file mode 100644
index 6f3cc14..0000000
--- a/RXE/Gostomizer.dotm/word/_rels/vbaProject.bin.rels
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/word/document.xml b/RXE/Gostomizer.dotm/word/document.xml
deleted file mode 100644
index dd9ff6e..0000000
--- a/RXE/Gostomizer.dotm/word/document.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/word/fontTable.xml b/RXE/Gostomizer.dotm/word/fontTable.xml
deleted file mode 100644
index 0a9e620..0000000
--- a/RXE/Gostomizer.dotm/word/fontTable.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/word/settings.xml b/RXE/Gostomizer.dotm/word/settings.xml
deleted file mode 100644
index f46e01e..0000000
--- a/RXE/Gostomizer.dotm/word/settings.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/word/styles.xml b/RXE/Gostomizer.dotm/word/styles.xml
deleted file mode 100644
index b904108..0000000
--- a/RXE/Gostomizer.dotm/word/styles.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/word/stylesWithEffects.xml b/RXE/Gostomizer.dotm/word/stylesWithEffects.xml
deleted file mode 100644
index 06643e0..0000000
--- a/RXE/Gostomizer.dotm/word/stylesWithEffects.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/word/theme/theme1.xml b/RXE/Gostomizer.dotm/word/theme/theme1.xml
deleted file mode 100644
index eda84b4..0000000
--- a/RXE/Gostomizer.dotm/word/theme/theme1.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/word/vbaData.xml b/RXE/Gostomizer.dotm/word/vbaData.xml
deleted file mode 100644
index 46b48f8..0000000
--- a/RXE/Gostomizer.dotm/word/vbaData.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RXE/Gostomizer.dotm/word/vbaProject.bin b/RXE/Gostomizer.dotm/word/vbaProject.bin
deleted file mode 100644
index ab5260c..0000000
Binary files a/RXE/Gostomizer.dotm/word/vbaProject.bin and /dev/null differ
diff --git a/RXE/Gostomizer.dotm/word/webSettings.xml b/RXE/Gostomizer.dotm/word/webSettings.xml
deleted file mode 100644
index 787c648..0000000
--- a/RXE/Gostomizer.dotm/word/webSettings.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/RibbonCallbacks.bas b/RibbonCallbacks.bas
index 2471d74..e8ed83f 100644
--- a/RibbonCallbacks.bas
+++ b/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
\ No newline at end of file
+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