Application.CleanString (Word)
Supprime les caractères non imprimables (codes de–caractère 1 29) et les caractères spéciaux de Word de la chaîne spécifiée ou les remplace par des espaces (code de caractère 32).
Les caractères suivants sont convertis comme indiqué dans ce tableau.
CleanString (String)
String: Chaîne source.
Dim strClean As String
Dim docNew As Document
strClean = Application.CleanString(Selection.Text)
Set docNew = Documents.Add
docNew.Content.InsertAfter strClean