Método Application.CleanString (Word)
Quita los caracteres no imprimibles (códigos de caracteres 1 a 29) y los caracteres de Word especiales de la cadena especificada o los cambia a espacios (código de caracteres 32). Devuelve el resultado como una cadena.
Sintaxis
expresión. CleanString( _String_ )
expresión Variable que representa un objeto Application. Opcional.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Cadena | Obligatorio | String | Cadena de origen. |
Comentarios
Los siguientes caracteres se convierten tal y como se describe en la siguiente tabla.
| Código de carácter | Descripción |
|---|---|
| 7 (pitido) | Eliminado a no ser que vaya precedido por el carácter 13 (párrafo) y posteriormente se convierta al carácter 9 (tabulación). |
| 10 (avance de línea) | Convertido al carácter 13 (párrafo) a no ser que vaya precedido por el carácter 13 y se elimine posteriormente. |
| 13 (párrafo) | Sin cambio. |
| 31 (guión opcional) | Eliminado. |
| 160 (espacio de no separación) | Convertido al carácter 32 (espacio). |
| 172 (guión opcional) | Eliminado. |
| 176 (espacio de no separación) | Convertido al carácter 32 (espacio). |
| 182 (marca de párrafo) | Eliminado. |
| 183 (viñeta) | Convertido al carácter 32 (espacio). |
Ejemplo:
En este ejemplo se eliminan los caracteres no imprimibles del texto seleccionado y se inserta el resultado en un nuevo documento.
Dim strClean As String
Dim docNew As Document
strClean = Application.CleanString(Selection.Text)
Set docNew = Documents.Add
docNew.Content.InsertAfter strClean
En este ejemplo se eliminan los caracteres no imprimibles del código de campo seleccionado y, a continuación, se muestra el resultado.
ActiveDocument.ActiveWindow.View.ShowFieldCodes = True
ActiveDocument.Fields(1).Select
MsgBox Application.CleanString(Selection.Text)
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.