Vb.net Mettre un mot en gras dans un document Word [Résolu]

Messages postés
418
Date d'inscription
mardi 4 février 2014
Statut
Membre
Dernière intervention
24 septembre 2018
-
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
Afficher la suite 

Votre réponse

1 réponse

Messages postés
418
Date d'inscription
mardi 4 février 2014
Statut
Membre
Dernière intervention
24 septembre 2018
1
0
Merci
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
Commenter la réponse de kikou93