2011-10-18
Indesignに貼り込んだ画像の上にファイル名をつける
日誌に書くことがないので、Indesignに貼り込んだ画像の上にファイル名をつけるスクリプトを書いてみました。
参考書 『組版時間を半減する! InDesign自動処理実例集』
var docObj = app.activeDocument;
var pagecount = docObj.pages.length;
var f = app.fonts.item("小塚ゴシック Pro");
var c = app.activeDocument.swatches.item("C=0 M=0 Y=100 K=0");
app.activeDocument.layers.add();
for (var i=0; i < pagecount; i++){
for (var j=0; j < docObj.pages[i].allGraphics.length; j++){
var imgObj = docObj.pages[i].allGraphics[j];
var imgName = imgObj.itemLink.name;
var y1 = imgObj.parent.visibleBounds[0];
var x1 = imgObj.parent.visibleBounds[1];
var y2 = imgObj.parent.visibleBounds[2];
var x2 = imgObj.parent.visibleBounds[3];
var tfObj = app.activeDocument.pages[i].textFrames.add();
tfObj.visibleBounds = [y1, x1,y2,x2];
tfObj.contents = imgName;
tfObj.paragraphs[0].appliedFont = f;
tfObj.paragraphs[0].fontStyle = "H";
tfObj.fit(FitOptions.frameToContent);
tfObj.fillColor = c;
}
}