[Heureux-oli] Rechercher et remplacer une ligne [Résolu]

[Kiefer_Sutherland]

Salut ,

J'ai un document word et je veux remplacer le ligne qui separe les informations par XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Le document est enorme , je vous ai uploadé un sample.

Lorsque je fais rechercher et remplacer je ne sais pas comment il detecte la ligne ?

Merci.

[Heureux-oli]

La ligne, n'est pas vraiment un ligne, c'est un bord de paragraphe.
Je vais regarder si il est possible de détecter ce bord en VBA.

[Kiefer_Sutherland]

Merci de me tenir au courant , en fait c'est vrai elle n'est même pas selectionnable

[Heureux-oli]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub testParaLigne()
Dim para As Paragraph
 
For Each para In ActiveDocument.Paragraphs
para.Range.Select
If Selection.Borders(wdBorderBottom) Then
    Selection.InsertBefore "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
    Selection.Borders(wdBorderBottom).Visible = False
 
    End If
Next para
 
 
End Sub

Essaie ce code, je pense qu'il va faire l'affaire.