Discussion :

[nvincent]

Bonjour tout le monde !

Voilà, j'ai document word qui contient plusieurs paragraphes. Chacun de ces paragraphes se termine par une "signature" qui contient du texte (avec retour chariot), mais aussi des liens hypertextes.

La signature est toujours la même et j'aimerai savoir si quelqu'un aurait une macro pour supprimer toutes ces signatures de façon automatique ?

Est-ce que quelqu'un aurait ça ?

Merci d'avance

[Heureux-oli]

Salut,

Pourquoi une macro ?
Une rechercher et remplacement par rien devrait le faire.

Pour les macros, là : http://heureuxoli.developpez.com/off...-et-remplacer/
Pour la recherche et remplacement, là : http://sepia.developpez.com/office/w...cherremplacer/

[nvincent]

Merci Heureux-oli pour la réponse et pour les liens (très utiles) !

Entre temps, j'ai trouvé un code qui fonctionne très bien, le voici pour ceux que ça intéresserait :

Code :

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

1
2
3
Selection.HomeKey unit:=wdStory
supp "Ecrire ici le début de phrase du paragraphe (redondant) à supprimer"
End Sub

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
Private Sub supp(txt)
 
Selection.HomeKey unit:=wdStory
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .MatchWildcards = False
    .Text = Chr(11)
    .Replacement.Text = vbCr
    .Execute Replace:=wdReplaceAll
End With
Selection.HomeKey unit:=wdStory
 
With Selection.Find
    .Replacement.Text = ""
    .Text = txt
    .Execute
End With
While Selection.Find.Found
    Selection.MoveRight
    Selection.MoveUp unit:=wdParagraph, Count:=1, Extend:=wdMove
    Selection.MoveDown unit:=wdParagraph, Count:=1, Extend:=True
    Selection.Delete
    Selection.Find.Execute
Wend

Comme le texte dont je veux me débarrasser n'est pas toujours sur un paragraphe distinct mais est parfois inclut dans un autre paragraphe que je veux conserver, j'utilise donc la fonction avancée de "Rechercher/Remplacer" pour forcer un retour à la ligne manuel (" ^l " ) au début du texte que je veux supprimer. Ainsi, tous les textes que je veux supprimer sont isolés et constituent des paragraphes à eux tout seul...

Bonne journée à vous