Discussion :

[SureKey]

Bonjour,

Est-il selon vous possible de mettre en variable les définitions bilingues que Word nous affiche quand l'on selectionne un mot puis que l'on va dans Revision>Mini-Traducteur ?

J'ai essayé en enregistrant une macro, il n'y a pas une ligne pour cette action.
J'ai regardé les cours et ai découvert Range.CheckSpelling mais si ça me donne de l'espoir ça ne m'aide pas du tout.
Connaissez vous une meilleure expression svp ?
Sinon savez comment consulter les dictionnaires Microsoft avec un petit coup de pouce pour me lancer ?

Merci d'avance pour les retours que vous pourrez me faire.

[Invité]

Sinon savez comment consulter les dictionnaires Microsoft ?

Bonjour,

Ce code doit vous donner la liste de vos dictionnaires dans la fenêtre exécution (Ctrl-G) :

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
 
Sub ListerLesDictionnaires()
 
Dim DocEnCours As Document
Dim MonDico As Dictionary
 
    Set DocEnCours = ActiveDocument
    With DocEnCours
         For Each MonDico In Application.CustomDictionaries
             Debug.Print MonDico.Name
         Next MonDico
    End With
    Set DocEnCours = Nothing
 
End Sub

[SureKey]

Merci, j'ai fait votre procédure et continué ma recherche.

Je n'ai que CUSTOM.DIR en retour.

Aucune piste pour utiliser un MainDictionary comme un Custom..
Tous les topics avec cette question propose de se connecter via internet à Microsoft Translator, Google, Reverso...
J'ai pu trouver SynonymInfo qui permet de consulter le dictionnaire des synonyme mais rien pour les dictionnaires bilingues (.its .lex)...

Si vous connaissez un dictionnaire bilingue multilangue dispo en base de données je suis preneur.

Cdt

[Invité]

Bonjour,

Je pensais que vous aviez déjà toute une série de dictionnaires, d'où le code. Quelles langues cherchez-vous ?

[SureKey]

Pour la mise en place je cherchais des définitions françaises sur des clés anglaises. Ensuite allemandes, espagnoles, italiennes..

Merci d'avance pour vos lumières, c'est un vieux projet déterré pendant que j'ai la tête dans le vba des applications Microsoft.

[Invité]

Je ne peux pas vous aider. Peut-être en lançant un appel à nos amis canadiens pour l'anglais-français, suisses pour l'allemand et l'italien et belges pour l'allemand.

Bon courage.

[SureKey]

Merci Eric

Je garderai "l'appel à un "cousin"" pour une question plus cotée, vu les efforts que ça à l'air de demander pour le maigre confort je vais boter vers Prompt, Systran et consorts

Bonne soirée à la prochaine.