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
Hallo,
eine tolle Lösung! Wäre es auch möglich die Außenränder des Arbeitsberechs mit Hilfslinien zu versehen. So, dass alles in einem Script ausgeführt wird. Momentan arbeite ich mit aufgezeichneten Makros dh. für jedes Format (Din lang oder A4, 5, 6 usw..) muss immer ein extra Makro erstellen. Es wäre Super wenn man das mit diesem Script verbinden könnte…ein klick und alles ist mit Linien versehen.
Nochmal vielen Dank für diese tolle Lösung, die mir viel Zeit spart.
Armin Gellert
Ergänze das Makro einfach um folgende Zeilen um Linien an den 4 Dokumenträndern zu zeichnen.
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, 0, 90#)Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, 0, 0#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(sx, 0, 90#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, sy, 0#)
großartig!
Vieeeelen Dank, es funkt. wunderbar.