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.
A voir également:
- Rechercher/Remplacer sur 1 ligne du document.
- Rechercher remplacer word - Guide
- Partager photos en ligne - Guide
- Comment reduire la taille d'un document - Guide
- Remplacer disque dur par ssd - Guide
- Rechercher ou entrer l'adresse - Guide
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