Добавлен модуль с макросами

2025-05-13 22:38:43 +03:00
parent b273bfdb16
commit 9db5a2c603
1 changed files with 128 additions and 0 deletions
--- a/modules.vbs
+++ 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
+