Bonjour,

je dois remplacer des chaînes de caractères dans un doc X.
Je lis les chaînes "à rechercher" et "de remplacement" dans un tableau d'un doc Y.

Vu que les chaînes de remplacement sont formatées (certains caractères sont en gras par ex.), j'utilise :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
MaRange.Tables(1).Cell(i, j).Range.FormattedText
Seulement, il y a des caractères à la noix à la fin de la range (chr(7), vbcr...).
J'ai donc essayé d'appliquer une moulinette de nettoyage qui marche bien, sur du texte (.Text) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Function netText(stTemp As Word.Range) As String
    netText = Left(stTemp.Text, Len(stTemp.Text) - 2) 'ou Replace(stTemp, vbCr & Chr(7), "")
    If Len(netText) = 1 And netText = Chr(160) Then netText = vbNullString
End Function
Pouvez-vous m'aider à la transposer avec un retour Range, afin de l'appliquer sur le ".FormattedText" ?
Merci bcp par avance.