Discussion :

[Bundy Lee]

Bonjour,

Merci d'avance de votre aide.

Je travaille sur un fichier qui a été généré par un logiciel de généalogie (Heredis).

Il y a quelque erreur dans le fichier Word que j'aimerais supprimer.

Quand le logiciel a la date de mariage de deux individus, il écrit dans le fichier Word : "Jean V et Marie Marguerite se sont mariés vers 1406."
Mais quand il n'a pas de date, il écrit : "Jean V et Marie Marguerite se sont mariés." Dans le fichier il y a plus de 5 000 individus !

j'aimerais tout bêtement supprimer la ligne quand il n’y a pas de date, "Tintin et Milou se sont mariés"

Alors j'ai essayé avec la fonction de Word "rechercher et remplacer", mais même si pour moi les regex sous Word c'est pas ça !
J'ai essayé "<?{1;10}et?{1;10) se sont mariés^13" et d'autre, mais je n’ai pas la bonne solution.

Alors si vous pouvez m'aider ça serait cool.

[Bergay]

Bonjour,
j'ai le même problème. J'avais écrit une petite macro pour ce genre de remplacement mais je n'ai toujours pas trouvé la manière de faire stopper la macro à la fin du texte : elle continue sans fin car une fois arrivée à la fin, elle recommence au début du texte.

Je cherche encore et je donnerai des nouvelles si je trouve !

[mromain]

Bonjour Bundy Lee, Bergay, le forum,

Un essai avec la macro ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim i As Long
Dim txt As String
 
    With ActiveDocument
        For i = .Paragraphs.Count To 1 Step -1
            txt = .Paragraphs(i).Range.Text     'récupérer le texte du paragraphe
            If txt Like "*" & vbCr Then txt = Left(txt, Len(txt) - 1)   'supprimer le retour à la ligne s'il existe
            If txt Like "*." Then txt = Left(txt, Len(txt) - 1)         'supprimer le point final s'il existe
            If txt Like "* se sont mariés" Then .Paragraphs(i).Range.Delete     'supprimer le paragraphe si besoin
        Next i
    End With
End Sub

Elle transforme ce texte :

Jean V et Marie Marguerite se sont mariés vers 1406.
Jean V et Marie Marguerite se sont mariés.
Tintin et Milou se sont mariés
Jean V et Marie Marguerite se sont mariés vers 1406.
Jean V et Marie Marguerite se sont mariés.
Tintin et Milou se sont mariés
Jean V et Marie Marguerite se sont mariés vers 1406.

En :

Jean V et Marie Marguerite se sont mariés vers 1406.
Jean V et Marie Marguerite se sont mariés vers 1406.
Jean V et Marie Marguerite se sont mariés vers 1406.

A+

[Bergay]

vbCr : c'est le retrour à la ligne ??

[mromain]

Bonjour Bergay

Oui, du moins "un des retours à la ligne" (le caractère de retour chariot). Tu trouveras plus d’infos ici.

A+