Discussion :

[Arsene12]

Bonjour,

Je suis dans un document et je sélectionne une page. Je voudrais faire un rechercher-remplacer uniquement sur la page sélectionnée.

Code :

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

1
2
3
4
5
With Selection.Find
.text = "Mot1"
.Replacement.text = "Mot2"
.Execute Replace:=wdReplaceAll
End With

Quel code dois-je rajouter pour que le remplacement ne se fasse pas au-delà de la page sélectionnée?

Cordialement
Arsène

[Heureux-oli]

Salut,

Une page n'étant pas un objet, tu risques de rencontrer des problèmes, si le nombre de caractère des deux termes de la recherche sont les mêmes, ça devrait ne pas être trop gênant.

Pour savoir si tu est toujours sur la page, tu peux associer une condition au remplacement.

Code :

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

selection.Information(wdActiveEndPageNumber)