Public Sub Beschnitt_3mm()
' Hilfslinien im Abstand von 3mm
' von den Rändern des Dokuments entfernt
' erzeugen, sowie in der Dokumentenmitte
'
' Litschi.de
Dim s As Shape ' Variablen deklarieren
Dim sx As Double, sy As Double
Const Abstand As Double = 0.11811 ' Rand 3mm festlegen
ActivePage.GetSize sx, sy ' Aktuelle Seitengröße merken
' Hilfslinien im Abstand von den Dokumenträndern zeichnen
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(Abstand, 0, 90#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, Abstand, 0#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(sx - Abstand, 0, 90#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, sy - Abstand, 0#)
' Mittige Hilfslininen
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(sx / 2, 0, 90#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, sy / 2, 0#)
End Sub
