Witajcie.
Mam nagrane makro wstawiające znak wodny o treści "kopia nienadzorowana".
ActiveDocument.Sections(1).Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddTextEffect( _
PowerPlusWaterMarkObject8627968, "KOPIA NIENADZOROWANA", _
"Times New Roman", 60, False, False, 0, 0).Select
Selection.ShapeRange.Name = "PowerPlusWaterMarkObject8627968"
Selection.ShapeRange.TextEffect.NormalizedHeight = False
Selection.ShapeRange.Line.Visible = False
Selection.ShapeRange.Fill.Visible = True
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(166, 166, 166)
Selection.ShapeRange.Fill.Transparency = 0.5
Selection.ShapeRange.Rotation = 315
Selection.ShapeRange.LockAspectRatio = True
Selection.ShapeRange.Height = CentimetersToPoints(2.38)
Selection.ShapeRange.Width = CentimetersToPoints(27.41)
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapNone
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
WordBasic.AcceptAllChangesInDoc
Poszukuję jakiegoś sposobu by przypisać to makro do polecenie Drukuj i Szybkie drukowanie.
Czytałem, że takie zdarzenie może obsłużyć DocumentBeforePrint, tylko nie wiem jak go wykorzystać w nagranym makrze.
Czy ktoś znajdzie sposób na połączenie kodu makra z DocumentBeforePrint?? |