|
| auteur : bidou |
Avec la méthode find et les bons paramètres
Set objDoc = Application.Documents.Open("c:\jmarc\tuto.doc")
objDoc.Content.Find.Execute FindText:="GNU", ReplaceWith:="GPL", Replace:=wdReplaceAll
|
|
|
| auteur : 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
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 With
|
|
Consultez les autres F.A.Q.
Les sources présentées sur cette page sont libres de droits
et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation
constitue une œuvre intellectuelle protégée par les droits d'auteur.
Copyright © 2009 Developpez Developpez LLC.
Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne
peut être faite de ce site ni de l'ensemble de son contenu : textes, documents
et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez
selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.
