Compartilhar via

Método Application.CleanString (Word)

Remove carateres não imprimíveis (códigos de carateres 1 a 29) e carateres Word especiais da cadeia especificada ou altera-os para espaços (código de carateres 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.

  • Last updated on