From 9db5a2c603f284d4673c9717aea482343f1962fc Mon Sep 17 00:00:00 2001
From: zbronik <zbronik@rambler.ru>
Date: Tue, 13 May 2025 22:38:43 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?=
 =?UTF-8?q?=D0=BD=20=D0=BC=D0=BE=D0=B4=D1=83=D0=BB=D1=8C=20=D1=81=20=D0=BC?=
 =?UTF-8?q?=D0=B0=D0=BA=D1=80=D0=BE=D1=81=D0=B0=D0=BC=D0=B8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 modules.vbs | 128 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 128 insertions(+)
 create mode 100644 modules.vbs

diff --git a/modules.vbs b/modules.vbs
new file mode 100644
index 0000000..2a7caae
--- /dev/null
+++ b/modules.vbs
@@ -0,0 +1,128 @@
+Option Explicit 'Потребовать явного объявления всех переменных в файле
+
+'TableFormatter (элемент: button, атрибут: onAction), 2010+
+Private Sub TableFormatter(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'PicFormatter (элемент: button, атрибут: onAction), 2010+
+Private Sub PicFormatter(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'AddListA4 (элемент: button, атрибут: onAction), 2010+
+Private Sub AddListA3(control As IRibbonControl)
+    'for debug
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+    
+    Dim ps As PageSetup
+    
+    Set ps = Selection.PageSetup
+        
+    Selection.InsertBreak Type:=wdSectionBreakNextPage
+    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
+    
+    Selection.InsertBreak Type:=wdSectionBreakNextPage
+    Selection.PageSetup = ps
+    
+End Sub
+
+'AddListA3 (элемент: button, атрибут: onAction), 2010+
+Private Sub AddListA4(control As IRibbonControl)
+    'for debug
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+     Selection.InsertBreak Type:=wdSectionBreakNextPage
+    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)
+        .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
+    If Selection.PageSetup.Orientation = wdOrientPortrait Then
+        Selection.PageSetup.Orientation = wdOrientLandscape
+    Else
+        Selection.PageSetup.Orientation = wdOrientPortrait
+    End If
+    
+End Sub
+
+'StampForm5 (элемент: button, атрибут: onAction), 2010+
+Private Sub AddStampForm5(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'StampForm6 (элемент: button, атрибут: onAction), 2010+
+Private Sub AddStampForm6(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'StampFrame (элемент: button, атрибут: onAction), 2010+
+Private Sub AddFrame(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'StampLeftUp (элемент: button, атрибут: onAction), 2010+
+Private Sub AddStampLeftUp(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'StampLeftDown (элемент: button, атрибут: onAction), 2010+
+Private Sub AddStampLeftDown(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'StampLeftMiddle (элемент: button, атрибут: onAction), 2010+
+Private Sub AddStampLefMid(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'StampPageNumber (элемент: button, атрибут: onAction), 2010+
+Private Sub AddPageNumber(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+