Método Application.CleanString (Word)

  • Artículo

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

Objeto Application

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.