Sub ML_AddListA4()
    'for debug
    'MsgBox "Запуск функции вставки листа А4"
    
    'Dim ps As PageSetup
    
    'Set ps = Selection.PageSetup
    
    '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
    
    With Selection.PageSetup
        .PaperSize = wdPaperA4
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(2)
        .BottomMargin = CentimetersToPoints(2)
        .LeftMargin = CentimetersToPoints(3)
        .RightMargin = CentimetersToPoints(1.5)
    End With
    
    'With Selection.PageSetup
    '    .LineNumbering.Active = False
    '    .Orientation = wdOrientLandscape
    '    .TopMargin = CentimetersToPoints(1.5)
    '    .BottomMargin = CentimetersToPoints(3)
    '    .LeftMargin = CentimetersToPoints(2)
    '    .RightMargin = CentimetersToPoints(2)
    '    .Gutter = CentimetersToPoints(0)
    '    .HeaderDistance = CentimetersToPoints(1.25)
    '    .FooterDistance = CentimetersToPoints(1.25)
    '    .PageWidth = CentimetersToPoints(29.7)
    '    .PageHeight = CentimetersToPoints(21)
    '    .FirstPageTray = wdPrinterDefaultBin
    '    .OtherPagesTray = wdPrinterDefaultBin
    '    .SectionStart = wdSectionNewPage
    '    .OddAndEvenPagesHeaderFooter = False
    '    .DifferentFirstPageHeaderFooter = False
    '    .VerticalAlignment = wdAlignVerticalTop
    '    .SuppressEndnotes = False
    '    .MirrorMargins = False
    '    .TwoPagesOnOne = False
    '    .BookFoldPrinting = False
    '    .BookFoldRevPrinting = False
    '    .BookFoldPrintingSheets = 1
    '    .GutterPos = wdGutterPosLeft
    'End With
    
    
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"
    'MsgBox "до Selection.PageSetup.Orientation = " & Selection.PageSetup.Orientation
    
    '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 = wdPaperA3
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(2)
        .BottomMargin = CentimetersToPoints(2)
        .LeftMargin = CentimetersToPoints(3)
        .RightMargin = CentimetersToPoints(1.5)
    End With
    
    'With Selection.PageSetup
    '    .LineNumbering.Active = False
    '    .Orientation = wdOrientPortrait
    '    .TopMargin = CentimetersToPoints(2)
    '    .BottomMargin = CentimetersToPoints(2)
    '    .LeftMargin = CentimetersToPoints(3)
    '    .RightMargin = CentimetersToPoints(1.5)
    '    .Gutter = CentimetersToPoints(0)
    '    .HeaderDistance = CentimetersToPoints(1.25)
    '    .FooterDistance = CentimetersToPoints(1.25)
    '    '.PageWidth = CentimetersToPoints(29.7)
    '    '.PageHeight = CentimetersToPoints(42)
    '    .PaperSize = wdPaperA3
    '    .FirstPageTray = wdPrinterDefaultBin
    '    .OtherPagesTray = wdPrinterDefaultBin
    '    .SectionStart = wdSectionNewPage
    '    .OddAndEvenPagesHeaderFooter = False
    '    .DifferentFirstPageHeaderFooter = False
    '    .VerticalAlignment = wdAlignVerticalTop
    '    .SuppressEndnotes = False
    '    .MirrorMargins = False
    '    .TwoPagesOnOne = False
    '    .BookFoldPrinting = False
    '    .BookFoldRevPrinting = False
    '    .BookFoldPrintingSheets = 1
    '    .GutterPos = wdGutterPosLeft
    'End With
    
    'MsgBox "после Selection.PageSetup.Orientation = " & Selection.PageSetup.Orientation
    
    'If Selection.PageSetup.Orientation = wdOrientPortrait Then
    '    MsgBox "Портретная"
    '    Selection.PageSetup.Orientation = wdOrientLandscape
    'Else
    '    MsgBox "Альбомная"
    '    Selection.PageSetup.Orientation = wdOrientPortrait
    'End If
    
End Sub

Sub ML_TableFormatter()

Dim CurrTbl As Table

    If Selection.Tables.Count >= 1 Then
        'MsgBox ("выбрана таблица")
        
        Set CurrTbl = Selection.Tables(1)
        CurrTbl.Select
        'MsgBox ("выбрана эта таблица")
    
        'Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
        Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
        Selection.Font.Name = "Arial"
        Selection.Font.Size = 12
        
        With Selection.Rows
            .HeightRule = wdRowHeightAtLeast
            .Height = CentimetersToPoints(0.7)
            .AllowBreakAcrossPages = False
        End With
        
        With Selection.Tables(1)
            .TopPadding = CentimetersToPoints(0.05)
            .BottomPadding = CentimetersToPoints(0.05)
            .LeftPadding = CentimetersToPoints(0.05)
            .RightPadding = CentimetersToPoints(0.05)
            .Spacing = 0
            .AllowPageBreaks = True
            .AllowAutoFit = False
            .PreferredWidthType = wdPreferredWidthPoints
            .Rows.LeftIndent = CentimetersToPoints(0.1)
            .PreferredWidth = CentimetersToPoints(17.3)
            With .Borders(wdBorderLeft)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth150pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderRight)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth150pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderTop)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth150pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderVertical)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth150pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderHorizontal)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth050pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderBottom)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth150pt
                .Color = wdColorAutomatic
            End With
        End With
        
        
          
        With Selection.Rows(1)
            .Height = CentimetersToPoints(1.4)
            .HeadingFormat = True
            With .Borders(wdBorderLeft)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth150pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderRight)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth150pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderTop)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth150pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderBottom)
                .LineStyle = wdLineStyleDouble
                '.LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth150pt
                .Color = wdColorAutomatic
            End With
        End With
        
        CurrTbl.Rows(1).Select
        'MsgBox ("выбрана первая строчка")
        
        Selection.Rows(1).Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
        'MsgBox ("первая строка отформатирована")
        
        'MsgBox ("вставка заголовка")
        'Label = WdCaptionLabelID - https://learn.microsoft.com/ru-ru/office/vba/api/word.wdcaptionlabelid
        'при испоьзовании WdCaptionLabelID вставляется английское название
        'wdCaptionEquation = -3 формула
        'wdCaptionFigure = -1 рисунок
        'wdCaptionTable = -2 таблица
        'Position = WdCaptionPosition - https://learn.microsoft.com/ru-ru/office/vba/api/word.wdcaptionposition
        'wdCaptionPositionAbove = 0 до объекта
        'wdCaptionPositionBelow = 1 после объекта
        Selection.InsertCaption Label:="Таблица", Title:=" - ", Position:=wdCaptionPositionAbove
        
        'MsgBox ("Done!")
        'MsgBox ("Готово!")
        
    Else
        'MsgBox ("Table not select !")
        MsgBox ("Не выбрана таблица !")
    End If
    
    
End Sub
Sub ML_PicFormatter()
    
    Dim PicWidth, PicHeight, PicWidthA4, PicHeightA4, PicWidthA3, PicHeightA3 As Single
        
    'настройка размера картиное
    'для а4
    PicWidth = 15
    PicHeight = 15
    
    'для а4 альбомного
    PicWidthA4 = 25
    PicHeightA4 = 15
    
    'для а3 альбомного
    PicWidthA3 = 37
    PicHeightA3 = 24
    
    'определяем тип оъекта в выделении
    'MsgBox "pic in selection = " & Selection.ShapeRange.Count
    'MsgBox "pic in inline selection = " & Selection.InlineShapes.Count
    
    ' WdSelectionType =
    ' https://learn.microsoft.com/en-us/office/vba/api/word.wdselectiontype
    'MsgBox "Selection.Type = " & Selection.Type
    
    'определяем тип фигуры
    ' WdInlineShapeType =
    ' https://learn.microsoft.com/ru-ru/office/vba/api/word.wdinlineshapetype
    'MsgBox "WdInlineShapeType = " & Selection.InlineShapes(1).Type
    
    
    'проверка на выделение картинки
    'wdSelectionInlineShape = 7 Inline shape
    'MsgBox "выделено картинок = " & Selection.InlineShapes.Count
       
    If Selection.InlineShapes.Count > 0 Then
        'MsgBox "поехали форматировать"
        
        'проверяем ориентацию листа
        If Selection.PageSetup.Orientation = wdOrientLandscape Then
            'альбомная, может быть А4 и А3
            'MsgBox "Orientation = Landscape"
            
            
            If Selection.PageSetup.PaperSize = 7 Then
                'MsgBox ("A4")
                PicWidth = PicWidthA4
                PicHeight = PicHeightA4
            End If
    
            If Selection.PageSetup.PaperSize = 6 Then
                'MsgBox ("A3")
                PicWidth = PicWidthA3
                PicHeight = PicHeightA3
            End If
            
            'проверяем ширину картинки
            'MsgBox "width = " & PointsToCentimeters(Selection.InlineShapes(1).Width) & " / " & PicWidth
            If PointsToCentimeters(Selection.InlineShapes(1).Width) > PicWidth Then
                'устанавливаем ширину в точках
                Selection.InlineShapes(1).Width = CentimetersToPoints(PicWidth)
            End If
            
            'проверяем высоту картинки
            'MsgBox "height = " & PointsToCentimeters(Selection.InlineShapes(1).Width) & " / " & PicHeight
            If PointsToCentimeters(Selection.InlineShapes(1).Height) > PicHeight Then
                'устанавливаем высоту в точках
                Selection.InlineShapes(1).Height = CentimetersToPoints(PicHeight)
            End If
            
        Else 'orientation
            'портретная - только для А4, проверяем только ширину
            'MsgBox "Orientation = Portrait"
            
            'проверяем ширину картинки
            'MsgBox "width = " & PointsToCentimeters(Selection.InlineShapes(1).Width)
            If PointsToCentimeters(Selection.InlineShapes(1).Width) > PicWidth Then
                'устанавливаем ширину в точках
                Selection.InlineShapes(1).Width = CentimetersToPoints(PicWidth)
            End If
            
        End If 'orientation
        
        'выравниваем по центру
        'Selection.InlineShapes(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        With Selection.InlineShapes(1).Range.ParagraphFormat
            .Alignment = wdAlignParagraphCenter
            .SpaceBeforeAuto = False
            .SpaceAfterAuto = False
            .FirstLineIndent = CentimetersToPoints(0)
        End With
        
        'применение стиля и вставка названия
        'Selection.Style = ActiveDocument.Styles("???????")
        'add autonumber + set style
        'Selection.InsertCaption Label:="???????", TitleAutoText:="InsertCaption1", _
        ' Title:=" - ", Position:=wdCaptionPositionBelow, ExcludeLabel:=0
        'Selection.Style = ActiveDocument.Styles("???????? ???????")
        
        Selection.InlineShapes(1).Select
                
                
        'Label = WdCaptionLabelID - https://learn.microsoft.com/ru-ru/office/vba/api/word.wdcaptionlabelid
        'при испоьзовании WdCaptionLabelID вставляется английское название
        'wdCaptionEquation = -3 формула
        'wdCaptionFigure = -1 рисунок
        'wdCaptionTable = -2 таблица
        'Position = WdCaptionPosition - https://learn.microsoft.com/ru-ru/office/vba/api/word.wdcaptionposition
        'wdCaptionPositionAbove = 0 до объекта
        'wdCaptionPositionBelow = 1 после объекта
        Selection.InsertCaption Label:="Рисунок", Title:=" - " ', Position:=wdCaptionPositionBelow
        
        
        
        
        
        
        
    Else 'нет картинок
        MsgBox "Не выделена картинка!"
    End If 'проверка на картинки
    
    
    'устанавливаем ширину в точках
    'Selection.InlineShapes(1).Width = CentimetersToPoints(15)
    
    
    

End Sub

Sub ML_AddStyle()

'Добавление стилей:
'ГОСТ Обычный текст
'ГОСТ Название Рисунка
'ГОСТ Название Таблицы
'
'Добавление стилей маркированного и нумерованного списков идет через вызовы
'отдельных макросов, это нужно для того, чтобы коллекция стилей успевала обновляться

'Добавление стиля ГОСТ Обычный текст
'ActiveDocument.Styles.Add Name:="ГОСТ Обычный текст", Type:= _
'        wdStyleTypeCharacter
'    With ActiveDocument.Styles("ГОСТ Обычный текст").Font
'        .Name = "Arial"
'        .Size = 12
'        .Color = wdColorAutomatic
'    End With
'    With ActiveDocument.Styles("ГОСТ Обычный текст").Font
'        With .Shading
'            .Texture = wdTextureNone
'            .ForegroundPatternColor = wdColorAutomatic
'            .BackgroundPatternColor = wdColorAutomatic
'        End With
'        .Borders(1).LineStyle = wdLineStyleNone
'        .Borders.Shadow = False
'    End With

'Добавление стиля ГОСТ Обычный текст
ActiveDocument.Styles.Add Name:="ГОСТ Обычный текст", Type:= _
        wdStyleTypeParagraph
    ActiveDocument.Styles("ГОСТ Обычный текст").AutomaticallyUpdate = False
    With ActiveDocument.Styles("ГОСТ Обычный текст").Font
        .Name = "Arial"
        .Size = 12
        .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 = wdLineSpace1pt5
        .Alignment = wdAlignParagraphJustify
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(1.5)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
    End With
    ActiveDocument.Styles("ГОСТ Обычный текст"). _
        NoSpaceBetweenParagraphsOfSameStyle = True
    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 = 12
        .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 = 12
        .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
    
 Selection.ClearFormatting
'добавление стиля нумерованного списка
Call ML_AddNumList
 Selection.ClearFormatting
'добавление стиля маркированного списка
Call ML_AddMarkerList
 Selection.ClearFormatting

  
    
End Sub


Sub ML_TestMacros()

    MsgBox ("Хоба!")
    
    'MsgBox "Papersize = " & Selection.PageSetup.PaperSize
    'wdPaperSize - https://learn.microsoft.com/en-us/office/vba/api/word.wdpapersize
    'wdPaperA3 = 6
    'wdPaperA4 = 7
    
    'If Selection.PageSetup.PaperSize = 7 Then
    '    MsgBox ("A4")
    'End If
    
    'If Selection.PageSetup.PaperSize = 6 Then
    '    MsgBox ("A3")
    'End If
    
    MsgBox "Selection.Type = " & Selection.Type
    
        
    
End Sub

Sub ML_AddNumList()
'Добавление стиля нумерованного списка
  ActiveDocument.Styles.Add Name:="ГОСТ Список цифра", Type:= _
        wdStyleTypeParagraph
    With ActiveDocument.Styles("ГОСТ Список цифра")
        .AutomaticallyUpdate = False
        .BaseStyle = "ГОСТ Обычный текст"
        .NextParagraphStyle = "ГОСТ Список цифра"
    End With
    With ActiveDocument.Styles("ГОСТ Список цифра").Font
        .Name = "Arial"
        .Size = 12
        .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


    With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(1)
        .NumberFormat = "%1"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(1.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "ГОСТ Список цифра"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(2)
        .NumberFormat = "%1.%2"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(1.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0)
        .TabPosition = wdUndefined
        .ResetOnHigher = 1
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(3)
        .NumberFormat = "%1.%2.%3"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(1.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0)
        .TabPosition = wdUndefined
        .ResetOnHigher = 2
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(4)
        .NumberFormat = "%1.%2.%3.%4"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(1.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0)
        .TabPosition = wdUndefined
        .ResetOnHigher = 3
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(5)
        .NumberFormat = "%1.%2.%3.%4.%5"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(1.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0)
        .TabPosition = wdUndefined
        .ResetOnHigher = 4
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(6)
        .NumberFormat = "%1.%2.%3.%4.%5.%6"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(1.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0)
        .TabPosition = wdUndefined
        .ResetOnHigher = 5
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(7)
        .NumberFormat = "%1.%2.%3.%4.%5.%6.%7"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(1.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0)
        .TabPosition = wdUndefined
        .ResetOnHigher = 6
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(8)
        .NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(1.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0)
        .TabPosition = wdUndefined
        .ResetOnHigher = 7
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(9)
        .NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8.%9"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(1.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0)
        .TabPosition = wdUndefined
        .ResetOnHigher = 8
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = ""
    End With
    ListGalleries(wdOutlineNumberGallery).ListTemplates(2).Name = "NameDigit"
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:=ListGalleries(wdOutlineNumberGallery).ListTemplates(2)
        'ListGalleries(wdOutlineNumberGallery).ListTemplates (2), _
        'ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList, _
        'DefaultListBehavior:=wdWord10ListBehavior

    ActiveDocument.Styles("ГОСТ Список цифра").LanguageID = wdRussian
    ActiveDocument.Styles("ГОСТ Список цифра").NoProofing = False
    ActiveDocument.Styles("ГОСТ Список цифра").Frame.Delete
    
    'Selection.ClearFormatting
    
End Sub

Sub ML_AddMarkerList()

'Добавление стиля маркированного списка
ActiveDocument.Styles.Add Name:="ГОСТ Список маркер (-)", Type:= _
        wdStyleTypeParagraph
    
    With ActiveDocument.Styles("ГОСТ Список маркер (-)")
        .AutomaticallyUpdate = False
        .BaseStyle = "ГОСТ Обычный текст"
        .NextParagraphStyle = "ГОСТ Список маркер (-)"
    End With
    With ActiveDocument.Styles("ГОСТ Список маркер (-)").Font
        .Name = "Arial"
        .Size = 12
        .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 = wdLineSpace1pt5
        .Alignment = wdAlignParagraphJustify
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(1.5)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
    End With
    ActiveDocument.Styles("ГОСТ Список маркер (-)"). _
        NoSpaceBetweenParagraphsOfSameStyle = True
    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 = wdEnglishUS
    'ActiveDocument.Styles("ГОСТ Список маркер (-)").NoProofing = False
    'ActiveDocument.Styles("ГОСТ Список маркер (-)").Frame.Delete
    ''Selection.MoveUp Unit:=wdLine, Count:=4
    ''Selection.MoveDown Unit:=wdLine, Count:=2
    ''Selection.MoveUp Unit:=wdLine, Count:=3
    ''Selection.MoveLeft Unit:=wdCharacter, Count:=27
    ''Selection.MoveDown Unit:=wdLine, Count:=10, Extend:=wdExtend
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = "-"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(1.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Arial"
        End With
        .LinkedStyle = "ГОСТ Список маркер (-)"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(2)
        .NumberFormat = "-"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(2.5)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.25)
        .TabPosition = wdUndefined
        .ResetOnHigher = 1
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Arial"
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(3)
        .NumberFormat = "-"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(3.75)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(2.5)
        .TabPosition = wdUndefined
        .ResetOnHigher = 2
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Arial"
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(4)
        .NumberFormat = "-"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(5)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(3.75)
        .TabPosition = wdUndefined
        .ResetOnHigher = 3
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Arial"
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(5)
        .NumberFormat = "-"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(6.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(5)
        .TabPosition = wdUndefined
        .ResetOnHigher = 4
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Arial"
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(6)
        .NumberFormat = "-"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(7.5)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(6.25)
        .TabPosition = wdUndefined
        .ResetOnHigher = 5
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Arial"
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(7)
        .NumberFormat = "-"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(8.75)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(7.5)
        .TabPosition = wdUndefined
        .ResetOnHigher = 6
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Arial"
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(8)
        .NumberFormat = "-"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(10)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(8.75)
        .TabPosition = wdUndefined
        .ResetOnHigher = 7
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Arial"
        End With
        .LinkedStyle = ""
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(9)
        .NumberFormat = "-"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(11.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(10)
        .TabPosition = wdUndefined
        .ResetOnHigher = 8
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Arial"
        End With
        .LinkedStyle = ""
    End With
    ListGalleries(wdOutlineNumberGallery).ListTemplates(1).Name = "NameMinus"
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:=ListGalleries(wdOutlineNumberGallery).ListTemplates(1)
        'ListGalleries(wdOutlineNumberGallery).ListTemplates (1), _
        'ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList, _
        'DefaultListBehavior:=wdWord10ListBehavior

    ActiveDocument.Styles("ГОСТ Список маркер (-)").LanguageID = wdEnglishUS
    ActiveDocument.Styles("ГОСТ Список маркер (-)").NoProofing = False
    ActiveDocument.Styles("ГОСТ Список маркер (-)").Frame.Delete

'Selection.ClearFormatting

End Sub