Discussion :

[Zardangus]

Bonsoir à tous,

Quand je travaille sur plusieurs versions d'un mémoire ou une thèse, il m'arrive de faire des doublons de phrases ou de passages entiers sans m'en rendre compte. Y'a-t-il un moyen de les détecter sous Word ?

Merci d'avance,

Cordialement.

[Invité]

Bonjour,

En ajoutant une variable dico au code ci-dessous qui balaye la collection Sentences, vous devriez y arriver pour comparer des phrases entre elles :

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
 
Sub ListerLesPhrasesDUnDocument()
 
Dim DocEnCours As Document
Dim I As Long
 
    Set DocEnCours = ActiveDocument
    With DocEnCours
         For I = 1 To .Sentences.Count
             .Sentences(I).Select
             Debug.Print I & " : " & Selection.Range.Text
         Next I
    End With
    Set DocEnCours = Nothing
 
End Sub

En revanche, pour comparer des expressions ou des groupes de mots, s'ils ne font pas partie d'une liste finie, le temps de traitement devrait être rédhibitoire.