set targRowLabel to "NSAlert ダイアログの最前面表示"

tell application "Pages"
　　tell front document
　　　　set tList to every table whose column count = 2
　　end tell
end tell

delRowInEveryTable(tList, targRowLabel) of me

on delRowInEveryTable(tList as list, targRowLabel as string)
　　tell application "Pages"
　　　　repeat with i in tList
　　　　　　set j to contents of i
　　　　　　
　　　　　　tell j
　　　　　　　　set hCCount to header column count
　　　　　　　　set hRCount to header column count
　　　　　　　　
　　　　　　　　–ヘッダーカラムが複数存在している場合に対処？
　　　　　　　　repeat with hc from 1 to hCCount
　　　　　　　　　　tell column hc
　　　　　　　　　　　　set aList to value of every cell
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　if targRowLabel is in aList then
　　　　　　　　　　　　set aRes to search1DList(aList, targRowLabel) of me
　　　　　　　　　　　　
　　　　　　　　　　　　–ヘッダー列に削除対象ラベルが存在しつつ、削除対象ラベルがヘッダー行の範囲ではない場所に出現した場合に削除
　　　　　　　　　　　　if (aRes is not equal to false) and (aRes ≥ hRCount) then
　　　　　　　　　　　　　　try –ねんのため
　　　　　　　　　　　　　　　　delete row aRes
　　　　　　　　　　　　　　end try
　　　　　　　　　　　　end if
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　end repeat
　　　　　　end tell
　　　　end repeat
　　　　
　　end tell
end delRowInEveryTable