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