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
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
