Vb.net Mettre un mot en gras dans un document Word

Résolu
kikou93 Messages postés 417 Date d'inscription mardi 4 février 2014 Statut Membre Dernière intervention 24 septembre 2018 - Modifié par kikou93 le 8/08/2016 à 21:25
kikou93 Messages postés 417 Date d'inscription mardi 4 février 2014 Statut Membre Dernière intervention 24 septembre 2018 - 22 août 2016 à 11:04
Bonjour,
j'ai besoin de votre pour le sujet suivant :
je voulais mettre la mot dans le texte d'un fichier Word en gras
j'ai trouvé le code suivant :
 oWord.Selection.Find.Execute("Exemple")
oWord.Selection.Font.Bold = True

mais le problème qu'il n'y a pas qu'un seul mot "Exemple" dans le document Word (il y a plusieurs), je veux que tous les mots "Exemple" soit en gras
aussi je ne peux pas mettre un autre mot en gras
aidez-moi s'il vous plait a trouver une solution

1 réponse

kikou93 Messages postés 417 Date d'inscription mardi 4 février 2014 Statut Membre Dernière intervention 24 septembre 2018 1
22 août 2016 à 11:04
j'ai déjà trouvé la solution le jour meme ou j'ai posé la question
c'est juste que je n'ai pas eu le temps de la posé, désolé
c'est en regardant un poste (remplacer des mot dans un document Word manuellement)
c'est la que j'ai eu l'idée, l'option remplacer qui es présente dans Word dispose aussi d'une fonction pour remplacer la police d'un mot, alors je me suis dit que ça fera l'affaire
j'ai crée le code suivant :

 oWord.Selection.Find.ClearFormatting()
oWord.Selection.Find.Replacement.ClearFormatting()
With oWord.Selection.Find.Replacement.Font 'texte séléctionner
.Size = 12 'taille 12
.Bold = True 'gras
.Color = WdColor.wdColorBlack 'couleur noir
End With
With oWord.Selection.Find
.Text = "1er titre :" 'texte à remplacer
.Replacement.Text = "1er titre :" 'remplacer par
.Forward = True
.Wrap = WdFindWrap.wdFindAsk
.Format = True
End With
oWord.Selection.Find.Execute(Replace:=WdReplace.wdReplaceAll)

le résultat sera le suivant :
1er titre : bla bla bla
0
Rejoignez-nous