129 lines
5.3 KiB
Plaintext
129 lines
5.3 KiB
Plaintext
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
|
|
|