Hey, ich lasse per VBA ein großes "Kopie"  über den Text erstellen.

Da in meinen Vorlagen (die kann ich nicht ändern) in der Regel ein Textfeld vorhanden ist, mache ich dieses "invisible" da ich sonst nur die Hälfte des Wortes lesen kann.

Danach startet der Druck. Soweit so gut.

Sobald ich nun ein Dokument ohne Textfeld habe, bekomme ich einen Laufzeitfehler.

Wie kann ich den Druck trotzdem starten lassen, auch wenn keine Textfeld vorhanden ist? Bin etwas ratlos ?!?!

 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject1, _
        "Kopie", "Times New Roman", 1, False, False, 0, 0).Select
    Selection.ShapeRange.Name = "PowerPlusWaterMarkObject1"
    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(192, 192, 192)
    Selection.ShapeRange.Fill.Transparency = 0.1
    Selection.ShapeRange.Rotation = 315
    Selection.ShapeRange.LockAspectRatio = True
    Selection.ShapeRange.Height = CentimetersToPoints(7.52)
    Selection.ShapeRange.Width = CentimetersToPoints(15.04)
    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
        
      
        ActiveDocument.Shapes("Text Box 2").Select
    Selection.ShapeRange.Fill.Visible = msoFalse
           
             
      Dim anzahl As Integer
    anzahl = InputBox("Wieviele Ausdrucke?")
    
    ActivePrinter = "Normalpapier"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=anzahl, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0