Makro erzeugt Laufzeitfehler

[koter]

Hallo Norbert,

...Gibt es einen Befehl, der alle Hilfslinien löscht? Am besten im Makro selbst.

Ja, gibt es:

Code:

Sub DiesUndDasJedeSeiteOhneHilfslinien()
   Dim Seite As Page
   Dim MitUmriss As ShapeRange
   Dim Objekte As ShapeRange
   ActiveDocument.Unit = cdrMillimeter
   For Each Seite In ActiveDocument.Pages
       Seite.Activate
       ActiveDocument.BeginCommandGroup "DiesUndDas" & Seite.Index
       Set MitUmriss = Seite.Shapes.FindShapes(, , True, "@com.Outline.Width > 0")
       MitUmriss.Shapes.All.SetOutlinePropertiesEx ScaleWithShape:=cdrTrue
       Set Objekte = Seite.Shapes.All
'        Objekte.RemoveRange Seite.Guides
'        Objekte.RemoveRange ActiveDocument.MasterPage.Shapes.All
'        Hilfslinien löschen___________________________________
       Seite.GuidesLayer.Shapes.All.Delete
       ActiveDocument.MasterPage.GuidesLayer.Shapes.All.Delete
'        Hilfslinien löschen Ende______________________________
       With Objekte
           .ConvertToCurves
           .Group
           .Stretch 0.1
           .CenterX = ActivePage.CenterX
           .CenterY = ActivePage.CenterY
       End With
       Seite.SetSize 210, 297
       ActiveDocument.EndCommandGroup
       ActiveWindow.ActiveView.ToFitPage
   Next
End Sub

Es werden Alle Objekte auf den Hilfslinien-Ebenen gelöscht (auch auf der Master-Seite).
Wenn Du die Hilfslinien erhalten willst, kannst Du die Auskommentierung oberhalb der Kommentarzeile (Hilfslinien löschen) aufheben und die Befehle zum Löschen entfernen.

Mein Name für die Prozedur wird von Beitrag zu Beitrag immer bekloppter.
Vielleicht fällt Dir etwas besseres ein als „DiesUndDasJedeSeiteOhneHilfslinien“

Gruß

Koter