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