OVH Cloud OVH Cloud

Recherche de texte

1 réponse
Avatar
Sylvain P.
Bonjour,

J'ai fait la macro word suivante, pilot=E9e depuis Excel pour rechercher
du texte dans un doc. Word et le copier dans Excel :

appword.Selection.HomeKey Unit:=3DwdStory
appword.Application.Browser.Next

With appword.Selection.Find
.Text =3D "BlaBla"
End With

appword.Selection.Find.Execute
appword.Selection.MoveRight Unit:=3DwdCharacter, Count:=3D2,
Extend:=3DwdExtend
appword.Selection.MoveDown Unit:=3DwdLine, Count:=3D3, Extend:=3DwdExtend
appword.Selection.Copy

Le probl=E8me, c'est que dans certains docs. word le texte "BloBlo"
existe =E0 la place de "BlaBla". Je voudrais faire en sorte que la macro
recherche le texte "BloBlo" si elle ne trouve pas le texte "BlaBla".
Comment faire cela ? J'ai essay=E9 avec un "On error goto :" En vain.

Merci par avance.=20

A+

1 réponse

Avatar
Anacoluthe
Bonjour !

'Sylvain P.' nous a écrit ...
Le problème, c'est que dans certains docs. word le texte "BloBlo"
existe à la place de "BlaBla". Je voudrais faire en sorte que la macro
recherche le texte "BloBlo" si elle ne trouve pas le texte "BlaBla".
Comment faire cela ? J'ai essayé avec un "On error goto :" En vain.


Utilisez les caractères génériques dans la recherche.
Les possibilités sont très vastes comme de rechercher bloblo et blabla
mais surtout pas blibli ou blublu...
Il y a un excellent didacticiel de Circé dans la faq :
http://faqword.free.fr/articles.php?lng=fr&pg22
Facile à transposer en vba.

Anacoluthe
« Et l'on cherche souvent plus qu'on ne peut trouver. »
- MOLIERE