Método Application.CleanString (Word)

Remove caracteres sem impressão (códigos de caracteres 1 a 29) e caracteres especiais do Word da cadeia de caracteres especificada ou os altera em espaços (código de caractere 32). Retorna o resultado como uma cadeia de caracteres.

Sintaxe

expression. CleanString( _String_ )

expressão Uma variável que representa um objeto Application. Opcional.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
String	Obrigatório	String	A sequência de caracteres de origem.

Comentários

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

Código do caractere	Descrição
7 (alarme sonoro)	Removido, a menos que seja precedido pelo caractere 13 (parágrafo), e convertido no caractere 9 (tabulação).
10 (avanço de linha)	Convertido no caractere 13 (parágrafo), a menos que seja precedido pelo caractere 13, e removido.
13 (parágrafo)	Inalterado.
31 (hífen opcional)	Removido.
160 (espaço não separável)	Convertido no caractere 32 (espaço).
172 (hífen opcional)	Removido.
176 (espaço não separável)	Convertido no caractere 32 (espaço).
182 (marca de parágrafo)	Removido.
183 (marcador)	Convertido no caractere 32 (espaço).

Exemplo

Este exemplo remove caracteres não imprimíveis do texto selecionado e insere o resultado em um novo documento.

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

Este documento remove caracteres não imprimíveis do código de campo selecionado e exibe o resultado.

ActiveDocument.ActiveWindow.View.ShowFieldCodes = True 
ActiveDocument.Fields(1).Select 
MsgBox Application.CleanString(Selection.Text)

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.