Menu

Recherche de doublons de phrases dans word [Résolu]

Messages postés
15
Date d'inscription
mardi 7 novembre 2017
Dernière intervention
26 novembre 2018
- - Dernière réponse : girarem164
Messages postés
15
Date d'inscription
mardi 7 novembre 2017
Dernière intervention
26 novembre 2018
- 11 nov. 2018 à 15:10
je souhaiterais avoir une solution pour trouver les doublons de phrases dans word. En cas de contenu important.
je vous remercie de votre aide. Cordlmt. Emmanuel.
Afficher la suite 

Votre réponse

7 réponses

Messages postés
48211
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
21 février 2019
15732
0
Merci
Quelle version de Word ?
Commenter la réponse de Raymond PENTIER
Messages postés
15
Date d'inscription
mardi 7 novembre 2017
Dernière intervention
26 novembre 2018
0
Merci
office microsoft student 2007.
Commenter la réponse de girarem164
Messages postés
1996
Date d'inscription
dimanche 19 décembre 2010
Dernière intervention
19 février 2019
300
0
Merci
Bonjour girarem 164

Pour les doublons sur Word certains ont testé Tropes mais
je ne l'ai pas essayé personnellement.

https://www.tropes.fr/download.htm

En cas d'essais pourriez-vous SVP donner vos remarques
sur CCM pour d'autres internautes intéressés.

Merci d'avance
Bonne réussite
Commenter la réponse de renard bleu
Messages postés
22424
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
21 février 2019
7215
0
Merci
Bonjour,

une proposition par macro.
J'élimine les mots de moins de 3 lettres et les principales ponctuations avant de comparer.
Sélectionner la partie de texte concernée et lancer la macro.
Sub doublonsPhrases()
    Dim s1 As Range, s2 As Range
    Dim phr1 As String, phr2 As String, flag As Boolean
    For Each s1 In Selection.Sentences
        phr1 = reduction(s1.Text)
        flag = False
        For Each s2 In Selection.Sentences
            phr2 = reduction(s2.Text)
            If s1.Start < s2.Start Then
                If phr1 = phr2 Then
                    If Not flag And Not s1.HighlightColorIndex = wdYellow Then s1.HighlightColorIndex = wdBrightGreen: flag = True
                    s2.HighlightColorIndex = wdYellow
                End If
            End If
        Next s2
    Next s1
End Sub

Function reduction(s As String) As String
    Dim phr1, phr2() As String, i As Long, j As Long
    phr1 = Replace(Replace(Replace(s, ".", ""), ",", ""), ";", "")
    phr1 = Replace(Replace(Replace(Replace(phr1, Chr(160), " "), vbLf, ""), vbCr, ""), vbCrLf, "")
    phr1 = Split(phr1, " ")
    ReDim phr2(1 To UBound(phr1) + 1)
    For i = 0 To UBound(phr1)
        If Len(phr1(i)) > 3 Then
            j = j + 1: phr2(j) = phr1(i)
        End If
    Next i
    ReDim Preserve phr2(1 To j)
    reduction = Trim(Join(phr2, " "))
End Function

https://www.cjoint.com/c/HDDqb3uGb0M
eric

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Commenter la réponse de eriiic
0
Merci
Tropes est compliqué d'utilisation, je n'ai pas réussi à men servir.
Commenter la réponse de girarem164
Messages postés
15
Date d'inscription
mardi 7 novembre 2017
Dernière intervention
26 novembre 2018
0
Merci
je suis satisfait de la réponse.
eriiic
Messages postés
22424
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
21 février 2019
7215 -
Ce fut mûrement réfléchi :-)
eric
Commenter la réponse de girarem164
Messages postés
15
Date d'inscription
mardi 7 novembre 2017
Dernière intervention
26 novembre 2018
0
Merci
je vous remercie de votre conseil et espère pouvoir vous donner un conseil à mon tour. a vous et à tous les CommentCaMarcheComien.
Commenter la réponse de girarem164