'// GetPhoneticStr.vbs

txt = GetClipBoardText
CopyToClipboard(GetPhoneticStr(txt))

MsgBox "以下の文字列をカナにしてクリップボードに戻しました。" & vbCrLf & vbCrLf & txt

'// カナを返す

Function GetPhoneticStr(str)

    GetPhoneticStr = CreateObject("Excel.Application").GetPhonetic(str)

End function

'// クリップボードのテキストを取り出す
 
Function GetClipBoardText()

    GetClipBoardText = Trim(CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text"))

End Function

'// テキストをクリップボードにコピーする
'// 一瞬コンソール画面が出る

Sub CopyToClipboard(txt)

    CreateObject("WScript.Shell").Exec("clip").StdIn.Write(txt)

End Sub