25)searchをつかった検索置換

searchはInDesignの検索置換です。かなりいろいろできるのではまります。下記スクリプトでは（１）をOpenTypeの(1)にしています。必ず検索置換設定を記録して最後に復帰しておく事と、検索前に検索置換設定を空にしておくことが必要です。

CS2とCS3で大きく変わったのがここです。
このスクリプトはCS3では動きません。

tell application "Adobe InDesign CS2_J"
	set oldFindPreferences to properties of find preferences
	--検索設定を変数oldFindPreferencesに入れておく
	set oldChangePreferences to properties of change preferences
	--置換設定を変数oldFindPreferencesに入れておく
	tell active document
		tell page 1
			my FindRep1(text frame 1, "(1)", "<2474>")
			--オリジナル関数を呼び出す
		end tell
	end tell
	set properties of find preferences to oldFindPreferences
	--検索設定を元に戻す
	set properties of change preferences to oldChangePreferences
	--置換設定を元に戻す
end tell

on FindRep1(TF, findStr, repStr)
	tell application "Adobe InDesign CS2_J"
		set find preferences to nothing
		--検索設定をなしにする。
		set change preferences to nothing
		--置換設定をなしにする。
		tell active document
			search TF for findStr replacing with repStr
		end tell
	end tell
end FindRep1