ことえり単語登録に文字を入力するApple Script -- appleScript, apple script, AppleScript

wordRegister.scpt

-- ことえり単語登録(== "WordRegister")
tell application "WordRegister"
	
	activate
	
end tell

tell application "System Events"
	
	-- 単語の欄にペースト
	tell process "WordRegister"
		click menu item "ペースト" of menu "編集" of menu bar 1
	end tell
	
	-- 登録
	tell application process "WordRegister"
		tell window 1
			tell tab group 1
				click button "登録"
			end tell
			-- よみに変な文字が入っていると警告が表示されるが、そのまま登録
			tell sheet 1
				click button "そのまま登録"
			end tell
		end tell
	end tell
	
end tell