Rechercher/Remplacer sur 1 ligne du document.
Bigbug
-
Bigbug -
Bigbug -
Bonjour,
J'ai un document de plusieurs pages.
Je n'arrive pas à faire sur chaque page, un rechercher remplacer que sur la ligne 3 ou 3 ème paragraphe.
Quand je relance la macro lorsque la ligne 3 n'a pas le caractère à effacer, elle efface dans le reste du document le caractère à effacer.
Comment bloquer la recherche sur la ligne 3.
Merci pour votre aide.
J'ai un document de plusieurs pages.
Je n'arrive pas à faire sur chaque page, un rechercher remplacer que sur la ligne 3 ou 3 ème paragraphe.
Quand je relance la macro lorsque la ligne 3 n'a pas le caractère à effacer, elle efface dans le reste du document le caractère à effacer.
Comment bloquer la recherche sur la ligne 3.
Merci pour votre aide.
1 réponse
-
Bonjour
Peut-on voir votre macro?
S'applique-t-elle sur toutes les pages du classeur?
cdlt-
J'ai trouvé la solution :
il ne me rest plus qu'à faire une boucle sur plusieurs pages.
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2 (permet d'aller à une page et en haut de la page)
Selection.GoTo What:=wdGoToBookmark, Name:="\Page"
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.EndKey Unit:=wdLine, Extend:=wdExtend ('permet de sélectionner 1 ligne)
With Selection.Find
.Text = "*"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
With Selection.Find
.Text = "/"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
With Selection.Find
.Text = "\"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
With Selection.Find
-
