先生！なんでもありなんだな！（Vol6）

<script language="VBScript">
' テキストとして開く(&T)
' IEで選択された文字列をテキストファイルに関連づけられたエディタで開く
' Ver. 1.00
' Copyright (C) 2001 geroimo.
Dim strText
Dim fso, f1
Dim wsh
Set strText = external.menuArguments.document.selection.createRange()
Set wsh = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\windows\temp\textview.txt", True)
f1.WriteLine(strText.text)
f1.Close
wsh.Run "C:\windows\temp\textview.txt"
</script>