Método Global.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), como se describe en la sección "Comentarios". Devuelve el resultado como una cadena.
Sintaxis
expresión. CleanString
( _String_
)
Expresión Variable que representa un objeto "Global". 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)
Consulte 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.