| |
hikka さん、こんにちわ。
>ワード文章上でダブルクリックしたらuserformが出るようにしたいのですが可能でしょか？
>excelでは
>Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
> UserForm1.Show
>End sub
>みたいにできればと思っているのですが。
>よろしくお願いします。
ダブルクリックのイベントを起こすにはclassを利用します。
該当のドキュメントに
挿入→クラスモジュール（初期ネームはClass1）
Class1に以下のイベントを記述（ヘルプのサンプルをそのまま記述しています）
'/////Start
Public WithEvents appWord As Word.Application
Private Sub appWord_WindowBeforeDoubleClick _
(ByVal Sel As Selection, Cancel As Boolean)
Dim intResponse As Integer
intResponse = MsgBox("Selection = " & Sel & vbLf & vbLf _
& "Continue with operation on this selection?", _
vbYesNo)
If intResponse = vbNo Then Cancel = True
End Sub
'/////End
Thisdocumentに以下を記述
'/////Start
Dim X As New Class1 'Classモジュール名に合わせる
'閉じるとき開放
Private Sub Document_Close()
Set X = Nothing
End Sub
'イベントを起こす
Private Sub Document_Open()
Set X.appWord = Word.Application
End Sub
'/////End
保存して閉じ、ドキュメントをマクロを有効にして開けばイベントが有効になります。
今回のイベントはサンプルをそのまま転記したのでメッセージが出ますが、そこにフォームを表示するコードを書いてみてください。
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
