35)表の罫線を変更する

表の罫線を変更します。選択したセルの下罫線だけを変える設定でカスタマイズすればいろんなバリエーションを作れます。

set OriginalDelimiters to AppleScript's text item delimiters
set myWaight to "0.0 mm"
tell application "Adobe InDesign CS2_J"
	tell document 1
		set selectedItems to selection
		if selectedItems is {} then
			return
		end if
		set selItem to item 1 of selectedItems
		set startCell to name of selItem
		set AppleScript's text item delimiters to {":"}
		set startCell to text items of startCell
		set startX to item 1 of startCell
		set startY to item 2 of startCell
		set indRowCount to count rows of selItem
		set indColumnCount to count columns of selItem
		--set left edge stroke weight of column (startX) of selItem to myWaight
		--set right edge stroke weight of ¬
			column (startX + indColumnCount - 1) of selItem to myWaight
		set bottom edge stroke weight of row (startY + indRowCount - 1) of selItem¬
			 to myWaight	
	end tell
end tell
set AppleScript's text item delimiters to OriginalDelimiters