[VBA-W]Insérer du texte après une recherche

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA-W]Insérer du texte après une recherche

soad029

Salut tout le monde !!

Voilà,Je développe une application qui créer un fichier word avec les données de fichiers Excel.

Jai fait une fonction permettant à mon programme de rechercher une chaine de caractère dans mon fichier word, et jaimerai insérer un texte après le texte recherché. Voici le code de ma recherche :

Code :

document_word.Content.Find.Execute FindText:="Classement RS"

et mon code pour insérer le texte après Classement RS :

Code :

document_word.Range.InsertAfter ("Second titre" )

Au finale, il insère bien Seconde titre mais à la fin de mon document word, et non après Classement RS.

Savez-vous comment je pourrais faire cela ?
Davance un grand merci, et bon week end !!

Publicité

TAM136

Bonjour,

Tu travailles sur Vb ou sur VBA? Sur VBA, la fonction InsertAfter fonctionne mais il faut que le texte à coté duquel on veut faire l'insertion soit sélectionné:
With Selection
.InsertAfter " Second titre" 'Insérer le texte Second titre en n'oubliant
pas l'espace avant pour ne pas coller les
deux textes
End With

Bon week end

soad029

Salut TAM136 et merci beacoup de la réponse !

Désolé de répondre que maintenant... Alors, pour te répondre je travaille en VBA.

Voici le code que j'ai fait :

Code :

document_word.Content.Find.Execute FindText:="Classement RS1"
With Selection
.InsertAfter " Premier titre" 'Insérer le texte Second titre en n'oubliant
End With
document_word.Content.Find.Execute FindText:="Classement RS2"
With Selection
.InsertAfter " Second titre" 'Insérer le texte Second titre en n'oubliant
End With

mais il me surligne

Code :

.InsertAfter " Premier titre" 'Insérer le texte Second titre en n'oubliant"

en me disant que la variable n'est pas définie...

TAM136

Salut,

Je t'avoue que une instruction du type:
document_word.Content.Find.Execute FindText:="Classement RS2"
ne me dit rien.
Pour l'instant, je n'ai pas le temps d'étudier la question
J'essaierai de te répondre dans la soirée.

soad029

Merci, c'est sympa !

Bonne journée !

TAM136

Bonsoir,

Là je viens de remarquer parce que ce matin, j'étais pressé, que 'Insérer le texte Second titre en n' est en rouge. Attention, c'est juste du commentaire et non une instruction VBA. C'est facultatif: elle te permet de savoir à quoi sert l'instruction .InsertAfter " Premier titre". Tu écris soit

With Selection
.InsertAfter " Second titre"
End With

soit tu rajoute le commentaire mais en vert. Normalement, dès que tu mets l'apostrophe, le texte qui suit est interprété comme du commentaire et mis en vert automatiquement.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA-W]Insérer du texte après une recherche

Sujets relatifs
[Resolu] Recherche d'occurences dans une variable String	insérer du html dans un mail
UML - Débutant en programmation - Recherche de conseils	Liste déroulante et champ texte activable/désactivable
VBS - Recherche dans un groupe d'utilisateurs	[VBA] Excel différencier cellules vide ou contenant 0
[VBA] Excel : problème avec la fonction Print	Recherche béta-testeurs
Objet Timer sous VBA	Recherche alternative aux Frames
Plus de sujets relatifs à : [VBA-W]Insérer du texte après une recherche

Page générée en 0.030 secondes