raster achter tekst

Hallo,

Ik heb een script, het werkte altijd prima alleen nu niet meer en ik weet niet waar de fout zit.

Het script werkt als volgt:

Selecteer tekst > bereken de hoogte > plaats 'achter' de tekst een lijn met als dikte de hoogte in 25% zwart > spring de tekst 2 mm in links en rechts.

Er komt dan een 'rastervlak' achter de tekst te staan. Eenvoudiger dan eerst tekst knippen, kader trekken, vullen met 25% en een insert van 2mm rondom [veel handelingen]

Dit is het script [wat niet meer werkt ]

----------------------------------------------------------------

belowoffset = 5;

extra = 5;

oldvprefs = app.activeDocument.viewPreferences.verticalMeasurementUnits;

app.activeDocument.viewPreferences.verticalMeasurementUnits = MeasurementUnits.points;

y1 = app.selection[0].lines[0].baseline;

// Calculate the height of the selected text = line weight\

y = app.selection[0].lines[-1].baseline - y1;

// Compensate for additional space\

ld = app.selection[0].leading;

y = y + ( ld == Leading.AUTO ? app.selection[0].pointSize * 1.2 : ld) + extra;

var lastPara = app.selection[0].paragraphs[-1]

lastPara.ruleBelow = true;

lastPara.ruleBelowColor = 'Black';

lastPara.ruleBelowTint = 25;

lastPara.ruleBelowLineWeight = y;

lastPara.LeftIndent = '2mm';

lastPara.RightIndent = '2mm';

lastPara.ruleBelowOffset = -(y-belowoffset);

app.activeDocument.viewPreferences.verticalMeasurementUnits = oldvprefs;

----------------------------------------------------------------

Iemand een idee?