I'm so sorry, but it isn't runnig.
I have a class Module Dclick, containing this:
Option Explicit
Public WithEvents oApp As Word.Application
Private Sub oApp_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
Dim oCC As ContentControl
Set oCC = Sel.Range.ParentContentControl
If Not oCC Is Nothing Then
If oCC.Tag = "1" Then Call Macro1
If oCC.Tag = "2" Then Call Macro2
End If
Cancel = False
End Sub
Private Sub Class_Initialize()
Set oApp = Word.Application
End Sub
In a standard module is this:
Option Explicit
Dim X As Dclick
Sub Register_Event_Handler()
Set X = New Dclick
End Sub
When i doubleclick in a contentcontrol tagged "1" Macro1 isn't running.
Where is my mistake?