うむらうす

調べた結果

1. アプリケーションの名前を取得
2. そのアプリに対して「⌘+c」の指令を出しコピー
3. コピーした内容をタグで囲む
4. アプリに対して「⌘+v」でペースト

AppleScriptは「あるアプリケーションに対して」「ある操作を行わせる」的な書き方をするため、「任意のアプリ」に対して命令は出しにくいので、上のようにアプリケーションの名前を取得し、指定してコピペの指令を出すわけだ。
（参考：文字列の取得 by AppleScript）

ということで作ったスクリプトが以下のもの。
スクリプトダウンロード：strong_tag.zip

使い方：
上のzipファイルを解凍してできたAppleScriptファイル「strong_tag.scpt」を、ホームフォルダ内の「ライブラリ→Scripts」に移すと、スクリプトメニューにstrong_tagという項目が表示される。

スクリプトメニューって何？と言う方は以下の記事の「方法２：スクリプトメニューに登録する」を参照されたい。
→NBA TVのvideoを手軽に楽しむ (うむらうす)

使用上の注意：
実行に2，3秒かかるので、その間にコピーしたいアプリケーションを切り替えてしまうと、うまくタグで囲めないことがある。焦らずしっかり動作を見届けていただきたい。ただ5秒とか10秒とかかかって何も起きない場合、それはうまく動かなかったということなので、何時間も辛抱強く待ち続けないで欲しい。

ということでできたが、美しくない・・・使い勝手もイマイチ・・・もっと簡単にできないものか？そもスクリプトメニューから探すよりも、「文字を選択」→「右クリックから選択」とかの方が良くないか？そのあたりは今後の課題ということで。

まとめ：

• ユニバーサルパレットから行っていたHTMLタグ付けを、スクリプトメニューから行えるようにした
• ⌘+c,v でコピペしたりしているので動作が遅い
• もうちょっとなんとかしたい

以下、興味のある人向け、AppleScriptのソース。

property theElement : "strong"

on run

	

	set clipData to the clipboard

	

	set startTag to "<" & theElement & ">"

	set endTag to ""

	

	-- get the name of the active application

	set frontmostApp to path to frontmost application

	tell application "Finder"

		set appName to name of frontmostApp

	end tell

	

	-- in case the name ends with “.app”

	if appName ends with ".app" then

		set appName to text 1 thru -5 of appName

	end if

	

	

	try

		activate application appName

		

		tell application "System Events"

			keystroke "c" using command down

		-- adjust delay time below depending on your environment

			delay 1

			set the clipboard to (startTag & (the clipboard) & endTag) as text

			keystroke "v" using command down

		end tell

	on error err_msg number err_num

		display dialog err_msg & "(" & err_num & ")"

	end try

	

	set the clipboard to clipData

end run