Application.CleanString (Word)

Quita los caracteres no imprimibles (códigos de–carácter 1 29) y los caracteres especiales de Word de la cadena especificada o los cambia a espacios (código de carácter 32).

Los siguientes caracteres se convierten tal y como se describe en la siguiente tabla.

CleanString (String)

String: Cadena de origen.

Dim strClean As String 
Dim docNew As Document 
 
strClean = Application.CleanString(Selection.Text) 
Set docNew = Documents.Add 
docNew.Content.InsertAfter strClean