>ちなみに、右クリックしたときにメニューに
>「Wordで編集」を入れるには
>どうすればいいのでしょうか?
スクリプトを書きます。
拡張子はhtmです。
---この下から
<SCRIPT LANGUAGE="vbscript">
<!--
main()
dim objWord
sub main()
owin = external.menuArguments
Set objEvent = external.menuArguments.event
Set objEventElement = external.menuArguments.document.elementFromPoint(objEvent.clientX, objEvent.clientY)
Set objSrcAnchor = objEventElement
Set objWord = CreateObject("Word.Application")
objWord.Visible=1
Set objEventElement = external.menuArguments.document.elementFromPoint(objEvent.clientX, objEvent.clientY)
If objEvent.type = "MenuExtAnchor" Then
Set objSrcAnchor = objEventElement
Do Until TypeName(objSrcAnchor) = "HTMLAnchorElement"
Set objSrcAnchor = objSrcAnchor.parentElement
Loop
Download objSrcAnchor.href
ElseIf objEvent.type = "MenuExtImage" Then
If TypeName(objEventElement) = "HTMLAreaElement" Then
edit objEventElement.href
Else
Set objSrcImage = objEventElement
Set objSrcAnchor = objSrcImage.parentElement
Do Until TypeName(objSrcAnchor) = "HTMLAnchorElement"
Set objSrcAnchor = objSrcAnchor.parentElement
If TypeName(objSrcAnchor) = "Nothing" Then
edit objSrcImage.href
Exit sub
End If
Loop
edit objSrcAnchor.href
End If
ElseIf objEvent.type = "MenuExtUnknown" Then
Set objSrcAnchor = objEventElement
Do Until TypeName(objSrcAnchor) = "HTMLAnchorElement"
Set objSrcAnchor = objSrcAnchor.parentElement
If TypeName(objSrcAnchor) = "Nothing" Then
edit objEventElement.href
Exit Sub
End If
Loop
edit objSrcAnchor.href
End If
end sub
sub edit(filename)
objWord.Documents.Open filename
end sub
//-->
</SCRIPT>
---この上まで
このスクリプトを右クリックメニューに追加するには
↓の作者さんの「IE Menu Ext」というツールを使用します。
お礼
おぉ、なんだか難しそうなことが沢山書いてある。 でも頑張って使ってみます。 ありがとうございました。