Application.CleanString (Word)

Remove caracteres não imprimíveis códigos de caracteres–1 29 e caracteres especiais do Word da cadeia de caracteres especificada ou os altera para espaços (código de caractere 32). Retorna o resultado como uma cadeia de caracteres.

Os caracteres a seguir são convertidos da forma descrita nesta tabela.

CleanString (String)

String: A sequência de caracteres de origem.

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