El texto oculto es de gran ayuda para quienes desean «ocultar» ciertas partes de un documento, ya sea para que no se vean o no se impriman. Sin embargo, no es muy bueno para ocultar información que no desea que otros vean en un documento que está distribuyendo. Ellos (aquellos a quienes está distribuyendo el documento) pueden mostrar o imprimir texto oculto tan fácilmente como usted.

Word no tiene una función incorporada que le permita «bloquear» el texto oculto para que no se pueda ver. La mejor solución, entonces, es simplemente eliminar todo su texto oculto como último paso antes de distribuir su documento.

Puede hacer esto usando las funciones de búsqueda y reemplazo de Word, de la siguiente manera:

  1. Presione Ctrl + H. Word muestra la pestaña Reemplazar del cuadro de diálogo Buscar y reemplazar.

  2. Haga clic en el botón Más, si está disponible. (Ver figura 1)

  3. Coloque el punto de inserción en el cuadro Buscar y asegúrese de que esté vacío.

  4. Haga clic en el botón Formato y elija Fuente. Word muestra el cuadro de diálogo Buscar fuente. (Ver figura 2)

  5. Haga clic en la casilla de verificación Atributo oculto hasta que tenga una marca de verificación negra sólida. (Puede que tenga que hacer clic en él más de una vez).

  6. Haga clic en Aceptar. El cuadro de diálogo Buscar fuente desaparece y las palabras «Formato: Oculto» deberían aparecer justo debajo del cuadro Buscar.

  7. Asegúrese de que el cuadro Reemplazar con esté vacío.

  8. Haga clic en Reemplazar todo.

Si se encuentra eliminando un poco el texto oculto, puede automatizar el proceso grabando una macro que realice los pasos anteriores, o puede usar la siguiente macro:

Sub StripAllHidden()

Dim rngsStories As Word.StoryRanges     Dim rngStory As Word.Range

On Error GoTo NoDocOpen         Set rngsStories = ActiveDocument.StoryRanges     On Error GoTo 0

'Need to loop through all 'stories' to     'remove hidden text from footnotes, headers,     'etc. as well as body text.



For Each rngStory In rngsStories         With rngStory.Find             .ClearFormatting             .Font.Hidden = True             Call .Execute(vbNullString, False, False, False, _                 False, False, True, wdFindContinue, True, _                 ReplaceWith:=vbNullString, _                     Replace:=wdReplaceAll)

End With     Next     Exit Sub NoDocOpen:

End Sub

La otra ventaja de usar esta macro es que también buscará texto oculto en lugares donde la función regular de Buscar y Reemplazar no lo hará: notas al pie, notas al final, encabezados, pies de página, etc.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (625) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Protecting_Hidden_Text [Protección de texto oculto].