textWrap.jsx

選択中の角版画像に回り込みを設定。
完全なるおうち使いｗ
環境：Windows XP sp3／InDesign CS3 ver.5.0.4
　
ウチの場合、クリッピングパスで回り込ませるものって、ほぼチラシやポスターなどのペラ物に限られます。
ページ数のある仕事の中には、多くの角版画像に回り込みを設定したい場合があるので、そいつをプチ自動化。
ダイアログのボタンレイアウトに無頓着だったけど、スペースで調整するとWinとMacで見た目が変わってしまう。
ま、とりあえず（＾＾；
　

var myDia = app.dialogs.add({ name:"textWrap",canCancel:true });
with(myDia){
		with(dialogColumns.add()){
		with(dialogRows.add()){
			with(dialogColumns.add()){
				staticTexts.add({staticLabel:"　　　"});
			}
			with(dialogColumns.add()){
				staticTexts.add({staticLabel:"上"});
			}
			with(dialogColumns.add()){
				var m_top = textEditboxes.add({editContents:"0", minWidth:50 });
			}
		}
		with(dialogRows.add()){
			with(dialogColumns.add()){
				staticTexts.add({staticLabel:"左"});
			}
			with(dialogColumns.add()){
				var m_left = textEditboxes.add({editContents:"0", minWidth:50 });
			}
			with(dialogColumns.add()){
				staticTexts.add({staticLabel:"右"});
			}
			with(dialogColumns.add()){
				var m_right = textEditboxes.add({editContents:"0", minWidth:50 });
			}
		}
		with(dialogRows.add()){
			with(dialogColumns.add()){
				staticTexts.add({staticLabel:"　　　"});
			}
			with(dialogColumns.add()){
				staticTexts.add({staticLabel:"下"});
			}
			with(dialogColumns.add()){
				var m_bottom = textEditboxes.add({editContents:"0", minWidth:50 });
			}
		}
	}
}
if(myDia.show() == true){
	var ue = m_top.editContents;
	var hidari = m_left.editContents;
	var migi = m_right.editContents;
	var sita = m_bottom.editContents;
	myDia.destroy();
} else {
	myDia.destroy();
}

var sel = app.selection;
if (sel.length >= 1){
	for (var i=0; i<sel.length; i++){
		sel[i].textWrapPreferences.textWrapType = 1651729523;  //境界線ボックスで回り込む（CS4: textWrapMode）
		sel[i].textWrapPreferences.textWrapSide = 1953981043;  //左右両サイド
		sel[i].textWrapPreferences.textWrapOffset = ([ue,hidari,sita,migi]);
	}
} else {
	alert("オブジェクトを選択してください");
}