🚀 go-pugleaf

Thanx, but it didnt work either.

Here is the full script until the errors occur (in the outcommented lines)

Sub Bildrahmen()

'Automatisches erstellen des EXIT-typischen Bildrahmens

Set myInDesign = CreateObject("InDesign.Application.CS")
Set myDocument = myInDesign.ActiveDocument
Set myWindow = myInDesign.ActiveWindow
Set mySpread = myWindow.ActiveSpread
Set mySelection = myDocument.Selection.Item(1)
mySelection.StrokeWeight = 0
myBounds = mySelection.GeometricBounds
myLinks = myBounds(1) - 2.5
myOben = myBounds(0) - 3
myRechts = myBounds(3) + 2.5
myUnten = myBounds(2) + 8

'mySelection.StrokeWeight = 0

'Neuen Rahmen erstellen

Dim myNewTextFrame
Set myNewTextFrame = mySpread.TextFrames.Add
myNewTextFrame.GeometricBounds = Array(myOben, myLinks, myUnten, myRechts)
myNewTextFrame.StrokeWeight = 0
myNewTextFrame.TextFramePreferences.TextColumnCount = 1
myNewTextFrame.TextFramePreferences.UseFixedColumnWidth = False
myNewTextFrame.TextFramePreferences.InsetSpacing = 0
myNewTextFrame.TextFramePreferences.IgnoreWrap = True
'With myNewTextFrame.TextFramePreferences
'.VerticalJustification = idTopAlign
'End With
myNewTextFrame.TextFramePreferences.MinimumFirstBaselineOffset = 0
'myNewTextFrame.TextWrapPreferences = InDesign.idTextWrapTypes.idBoundingBoxTextWrap

myNewTextFrame.TextWrapPreferences.TextWrapOffset = Array(2, 4, 4, 4)

The script assumes a selected object and a frame was always selected when running the script from Microsofts VB 6.0 editor in Office 10 Developer.