Re: Selection de texte Word avec OLE automation
Posté par drcharly93 le 18/12/2007 11:41:58
Bonjour,
Voici la méthode pour remplacer du texte
la valeur 1 signifie que la fonction va remplacer toutes les occurences de sTexteARemplacer par la valeur sTexteDeRemplacement dans tout le document
il ne reste plus ensuite qu'a effectuer le traitement complémentaire, envoie par mail, impression etc...
puis de fermer le document avec ou sans sauvegarde des modifications
Voici la méthode pour remplacer du texte
oWord est un objet automation "Word.Application"
sFileName est une chaine = <Chemin complet du fichier word>
sTexteARechercher est une chaine = "@@Valeur1/@"
sTexteDeRemplacement est une chaine = "Valeur2"
//Ouverture en mémoire du fichier word
//Invisible par défaut
oWord>>Documents>>Open(sFileName)
oWord>>Selection>>Find>>Execute( sTexteARechercher, ,Faux,Faux,Faux,Faux,Faux,Faux,1,Faux,sTexteDeRemplacement)
la valeur 1 signifie que la fonction va remplacer toutes les occurences de sTexteARemplacer par la valeur sTexteDeRemplacement dans tout le document
il ne reste plus ensuite qu'a effectuer le traitement complémentaire, envoie par mail, impression etc...
puis de fermer le document avec ou sans sauvegarde des modifications
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5588&post_id=22891