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
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.