(DTPtechNote:1554) [AS_InDesign CS2]偶数行のセル連結

[せうぞー <anonymous at unknown-host>]

(*
選択した表の偶数行だけをセル連結する
*)

tell application "Adobe InDesign CS2_J"
	activate
	tell document 1
		if (class of selection is not table) then display dialog "テーブルを選択してください" buttons {"キャンセル"}
		tell selection
			set column_cnt to (count columns) as Unicode text
			repeat with i from 2 to count rows by 2
				merge {cells ("1:" & i) thru (column_cnt & ":" & i)} -- with column
			end repeat
		end tell
	end tell
end tell