Discussion :

[wilfryjules]

Bonjour à tous,

Tout est dans le titre, je n'arrive pas à filtrer sur plusieurs langues, je souhaite faire un truc du genre:

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
 
Private Function RemoveDicoWords(myText() As String) As String()
 
    Dim newText() As String
    Dim j As Integer
    j = 0
    Dim n As Integer
    n = UBound(mytext)
    ReDim newText(n)
 
 
 
    For i = 0 To n
        If Not Application.CheckSpelling(myText(i), Languages(wdEnglishUS)) And Not Application.CheckSpelling(myText(i), Languages(wdFrench)) Then
            newText(j) = myText(i)
            j = j + 1
        End If
 
    Next
 
 
    RemoveDicoWords = newText
End Function

Mais la syntaxe du Checkspelling ne vas pas

[wilfryjules]

J'ai pu faire ça, pour un filtrage en englais:

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
 
 
Private Function RemoveDicoWords(myText() As String) As String()
 
    Dim newText() As String
    Dim j As Integer
    j = 0
    Dim n As Integer
    n = UBound(mytext)
    ReDim newText(n)
 
    With Application.SpellingOptions
        .DictLang = 1033 ' United States English language number.
        .UserDict = "CUSTOM.DIC"
    End With
 
 
 
    For i = 0 To n
        If Not Application.CheckSpelling(myText(i)) Then
            newText(j) = myText(i)
            j = j + 1
        End If
 
    Next
 
 
    RemoveDicoWords = newText
End Function

Ca marche bien, mais je souhaiterais tout filtrer d'un coup en une passe !! Sans devoir déclarer la langue avant...

[wilfryjules]

Mais de façon générale je ne suis pas sûr de savoir sélectionner le bon dictionnaire.... car je pense filtrer en français, mais des mots comme "that", "are" sont pris en compte....

[unparia]

Bonjour

Précise s'il te plait :
1) ce que contient exactement la matrice myText et comment elle a été abondée
2) ce que tu souhaites que contienne exactement la matrice RemoveDicoWords (ta fonction)

L'analyse "en diagonale" de ton code (le premier) laisse penser que tu souhaites n'abonder la matrice résultat que par des articles non acceptés tant par une langue que par l'autre

[unparia]

Il semble par ailleurs que tu développe sous VBA/Word, que je ne connais pas.
Il serait sans doute plus astucieux de poser ta question dans le forum VBA/Word, plutôt que dans la section VBA/général

J'ai malgré tout fait un petit tour dans laide interne de ton outil de développement (VBA/Word)
Je n'en suis poas certain, mais je crois comprendre qu'il te faut, dans ton cas, pointer vers un dictionnaire
- rubrique Dictionary.LanguageID, propriété de ton aide interne VBA
Lire également la rubrique Dictionary.LanguageSpecific, propriété
Une autre fois : je ne connais pas Word, mais ces lectures me laissent penser que l'on ne peut travailler sur deux dictionnaires à la fois
Il est par contre toujours possible de procéder en deux temps :
1) vérification dans un dictionnaire -->>
---- si vrai ---> OK -->> sortie sur OK
----- si non OK ---->> 2) vérification dans l'autre dictionnaire --->>
---- si vrai --->> OK
---- si non ---> REJET

[clementmarcotte]

Mais de façon générale je ne suis pas sûr de savoir sélectionner le bon dictionnaire.... car je pense filtrer en français, mais des mots comme "that", "are" sont pris en compte....

Mais are, c'est aussi un mot français.

D'un autre côté, Word est supposé choisir automatiquement le dictionnaire en fonction de la langue indiquée dans les options, ou la langue détectée dans le document. Je doute que l'on puisse tester deux langues en même temps. En principe, si le mot n'est pas dans le dictionnaire principal, alors Word regarde dans le dictionnaire personnel.

[wilfryjules]

Merci, au final j'ai fait 2 fonctions:
- une qui retire les mots français
- une qui retire les mots anglais