FAQ Word
FAQ WordConsultez toutes les FAQ
Nombre d'auteurs : 20, nombre de questions : 289, dernière mise à jour : 15 juin 2021
Sommaire→Rechercher Et Remplacer→Rechercher Et Remplacer VBA
Avec la méthode find et les bons paramètres
Sélectionnez
Set objDoc = Application.Documents.Open("c:\jmarc\tuto.doc")
objDoc.Content.Find.Execute FindText:="GNU", ReplaceWith:="GPL", Replace:=wdReplaceAllCréé le 4 février 2004 par bidou
Normalement, la sélection ne se fait que si Selection est la cible de la recherche ; Néanmoins, vous pouvez procéder à la sélection en désignant le parent de l'objet Find. Le code suivant encadre le texte GNU
Sélectionnez
Dim objDoc As Document, objRange As Range
Set objDoc = Application.Documents.Open("c:\jmarc\tuto.doc")
With objDoc.Content.Find
.ClearFormatting
Do While .Execute(FindText:="GNU", Forward:=True, Format:=True) = True
With .Parent
.StartOf Unit:=wdWord, Extend:=wdExtend
.Borders.Enable = True
End With
Loop
End WithCréé le 4 février 2004 par bidou