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 :
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) :
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.
Partager