[YouTube]PDF上でYouTubeを再生する場合のタグを生成する【AppleScript】

PDF上でYouTubeを再生する設定をする場合の
埋め込み用タグを生成するAppleScript

通常埋め込み用のHTMLタグ（embedタグ）は
↓の画面から取得しますが

ここから取得した埋め込みタグから
マルチメディア設定を行うと
↓のように埋め込み画面サイズが最低サイズになります。

そこで
ちょっと前の形式ですが
『player_embedded&version=2』のタグを
AppleScriptで生成します。

↓ここからコピーしたURLを

↓ダイアログへペーストして実行してください

↓生成した埋め込みタグを

コピーして使ってください
 

display dialog "ShareからコピーしたURLを入力" default answer "" with icon 1 default button 2

set GetUrl to text returned of the result as Unicode text

set CntGetUrl to the length of characters of GetUrl

considering case

set cn to the offset of "v=" in GetUrl

end considering

set Vid to characters (cn + 2) thru (cn + 12) of GetUrl as Unicode text

set h_width to "640" as number

set v_hight to "390" as integer

set HTMLtag to "" as Unicode text

set HTMLtag to HTMLtag & "" as Unicode text

set HTMLtag to HTMLtag & "<object width=\"" & h_width & "\" height=\"" & v_hight & "\">" as Unicode text

set HTMLtag to HTMLtag & "<param name=\"movie\" value=\"http://www.youtube.com/v/" & Vid as Unicode text

set HTMLtag to HTMLtag & "&hl=en_US&feature=player_embedded&version=2\"></param>" as Unicode text

set HTMLtag to HTMLtag & "<param name=\"allowFullScreen\" value=\"true\"></param>" as Unicode text

set HTMLtag to HTMLtag & "<param name=\"allowScriptAccess\" value=\"always\"></param>" as Unicode text

set HTMLtag to HTMLtag & "<embed src=\"http://www.youtube.com/v/" & Vid as Unicode text

set HTMLtag to HTMLtag & "&hl=en_US&feature=player_embedded&version=2\" " as Unicode text

set HTMLtag to HTMLtag & "type=\"application/x-shockwave-flash\" allowfullscreen=\"true\" " as Unicode text

set HTMLtag to HTMLtag & "allowScriptAccess=\"always\" width=\"" & h_width as Unicode text

set HTMLtag to HTMLtag & "\" height=\"" & v_hight & "\"></embed>" as Unicode text

set HTMLtag to HTMLtag & "</object>" as Unicode text

display dialog "タグが出来ましたコピーしてください" default answer HTMLtag with icon 1 default button 1

「swf_env_tag.scpt.zip」をダウンロード

「swf_env_tag.rtf」をダウンロード

サンプルのYouTubeを埋め込んだPDF
「youtube.pdf」をダウンロード