Discussion :

[PiPo123]

Bonjour,

J'aimerais savoir si c'est possible d'avoir une info-bulle avec la définition d'un mot, en ce moment c'est l'info-bulle de traduction qui apparait mais j'aimerais la remplacer par une info-bulle de définition. Est-ce possible ? De plus je cherche une solution générale pour tous les mots usuels du français et non pas pour un mot en particulier car j'ai bien trouvé des solutions pour ajouter une info-bulle de définition à un mot en particulier dans un texte ce qui n'est d'aucune utilité pour moi. En réalité je peux le faire manuellement mais pas dans un info-bulle, je sélectionne le mot puis je clique sur Dictionnaires des synonymes je choisis dictionnaire Encarta : français et j'ai ma définition mais c'est plutôt inefficace j'aimerais l'avoir dans une info-bulle ou par un accès direct dans le menu contextuel (clic droit sur la souris).

Merci à tous

[Heureux-oli]

Salut,

On peut utiliser les infobulles Hyperlink.
Mais c'est un travail de longue haleine.

[PiPo123]

Un compromis,

J'ai ajouté une petite macro pour appeller IE sur un dictionnaire en ligne avec le mot en surbrillance en paramêtre. Ce n'est pas dans une info-bulle mais ça fonctionne.

Ça donne ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Sub Définition()
'
'    http://www.le-dictionnaire.com/defin...php?mot=bateau
'    http://www.larousse.fr/dictionnaires...is/bateau/8326
'    http://dictionnaire.sensagent.com/bateau/fr-fr/
'    http://www.cnrtl.fr/lexicographie/bateau?
    Dim RetVal
    RetVal = Shell("C:\Program Files\Internet Explorer\iexplore.exe    http://www.cnrtl.fr/lexicographie/" + Selection.Range.Text, 1)
 
End Sub
 
----------------------------------------------------------------------
J'ai ajouté ceci pour ajouter dans le menu contexttuel de l'éditeur un item menu pour lançer la macro 
 
Sub AutoExec()
'
' AutoExec Macro
'
'
    Dim cb As CommandBar
    Dim ctl As CommandBarButton
    On Error GoTo bye
 
    CustomizationContext = NormalTemplate
    Set cb = CommandBars("Text")
    Set ctl = cb.FindControl(Tag:="Définition")
    If ctl Is Nothing Then
        Set ctl = cb.Controls.Add(Type:=msoControlButton, _
            Before:=1, Temporary:=True)
        With ctl
            .Caption = "Définition"
            .Tag = "Définition"
            .OnAction = "Définition"
        End With
    End If
bye:
 
End Sub
 
---------------------------------------------------------------------- 
Ca c'est pour enlever l'item menu dans le menu contextuel
 
Sub DeleteDéfinition()
'
' DeleteDéfinition Macro
'
'
   Dim cb As CommandBar
    Dim ctl As CommandBarControl
    CustomizationContext = NormalTemplate
    Set cb = CommandBars("Text")
 
    For Each ctl In cb.Controls
        If ctl.Tag = "Définition" Then
            ctl.Delete
        End If
    Next
 
End Sub

Mais il y a un petit problème si le mot en surbrillance est sur une ligne avec une puce je n'ai plus dans le menu contextuel de l'éditeur (Clic droit avec la souris) l'item menu 'Défénition'. Si quelqu'un sait comment ajouter ce menu dans tous les menus contextuels qui peuvent s'afficher en cours d'éditon j'aimerais bien que vous me le fassiez savoir.


Merci à tous.