Bonjour à tous,
je voudrais rechercher un mot dans un fichier Word déjà ouvert ,se mot ne pourra être que 4 fois maximun dans le document.
j'initialise le l'ouverture du fichier word par :leDoc
J'ai donc écris ce code :
Merci par avance pour vos aides
je voudrais rechercher un mot dans un fichier Word déjà ouvert ,se mot ne pourra être que 4 fois maximun dans le document.
j'initialise le l'ouverture du fichier word par :leDoc
J'ai donc écris ce code :
Code:
set leDoc =traitementTexte.documents.open(ActiveWorkbook.Path &"/essai.doc") ' ça marche bien le fichier Word s'ouvre
for i = 1 to 4 ' vue que le mot ne pourras être présent que 4 fois
leDoc.content.Find.Execute findtext:="monmot", Forward=true
leDoc.Selection.Expand unit:=wdParagraph ' il me trouve en paragraphe 4 le mot en pas à pas
leDoc.Selection.Range.Delete ' il n'efface pas la ligne !
Next i ' il ne boucle pas à deux et passe à la suite de la macro !
Merci par avance pour vos aides
Dernière édition: