tell application "Jedit4"
	tell document 1
		activate
		copy selection to theString
		get fontSize of selection
		set NewSize to result * 0.8
		toZenkaku selection
		set (fontSize of selection) to NewSize
		find theString in it with zenkaku sensitive
		if result is false then
			display dialog "もうありません。"
		end if
	end tell
end tell