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)