Hilary señala que la mayoría de los documentos que utiliza su empresa están estandarizados en una fuente Times Roman. Sin embargo, de vez en cuando alguien editará un documento y aplicará una fuente diferente a parte del texto que contiene. Le gustaría encontrar fácilmente esas «anomalías de formato». Hilary se pregunta si hay alguna forma de buscar texto en un documento que no utilice una fuente en particular.

Hay un par de formas en las que puede encontrar lo que necesita y, potencialmente, solucionar el problema. Primero, puede usar Buscar y reemplazar de esta manera:

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

  2. Haga clic en el botón Más, si está disponible.

  3. Asegúrese de que el cuadro Buscar qué esté vacío.

  4. Haga clic en Formato y luego elija Fuente. Word muestra el cuadro de diálogo Buscar fuente. (Ver figura 1)

  5. Utilice los controles del cuadro de diálogo para especificar que desea encontrar la fuente Times Roman que está utilizando. (Simplemente elija la fuente. No tiene que especificar ninguna otra configuración a menos que lo desee).

  6. Haga clic en Aceptar. Las especificaciones de fuente que está buscando aparecen justo debajo del cuadro Buscar.

  7. Haga clic en la casilla de verificación Resaltar todos los elementos.

  8. Haga clic en Buscar todo.

En este punto, el cuadro de diálogo se cierra y Word resalta debidamente todas las instancias de Times Roman en su documento. Puede desplazarse fácilmente por el documento para ver lo que no está resaltado; estas son las «anomalías» que está buscando.

También puede usar Buscar y reemplazar para aplicar un formato destacado al texto que no está en fuente Times Roman. Simplemente descubra algún formato que no esté utilizando en el documento, como doble subrayado o texto rojo. Seleccione todo el documento (Ctrl + A) y aplique ese formato a todo el documento. Luego, use Buscar y reemplazar para buscar todas las instancias de Times Roman (consulte los pasos anteriores) y reemplácelo con Times Roman sin el formato destacado que aplicó anteriormente. Lo que terminas es solo el texto que no está formateado en Times Roman con el formato destacado.

Si lo prefiere, puede utilizar una macro para modificar la fuente utilizada en el documento. La siguiente es una pequeña macro que analiza la fuente utilizada para cada palabra en su documento:

Sub FixFormatAnomalies()

Dim aWord

For Each aWord In ActiveDocument.Words         If aWord.Font.Name <> "Times Roman" Then             aWord.Font.Name = "Times Roman"

End If     Next aWord End Sub

Si la fuente utilizada para una palabra no coincide con la que desea, la rutina cambia la fuente. Lo único que deberá hacer para que la macro funcione en su caso es cambiar el nombre de la fuente deseada en dos líneas.

(Querrá usar el nombre de la fuente exactamente como aparece en la lista de fuentes que puede usar Word. Preste especial atención a las mayúsculas).

Otro enfoque es simplemente verificar cada carácter en el documento y resaltar el carácter si no usa la fuente deseada. La siguiente macro resalta los caracteres ofensivos en amarillo:

Sub HighlightOtherFonts()

Dim iCounter As Integer     Dim sFontName As String     Dim sPrompt As String     Dim sTitle As String     Dim sDefault As String     Dim c As Range

' Gets the name of the font as typed by the user     sPrompt = "Type the name of the font that is OK to "

sPrompt = sPrompt & "have in the document."

sTitle = "Acceptable Font Name"

sDefault = ActiveDocument.Styles(wdStyleNormal).Font.Name     sFontName = InputBox(sPrompt, sTitle, sDefault)



' Verifies that the name of the font is valid     For Each sFont In Application.FontNames         If UCase(sFontName) = UCase(sFont) Then             ' Changes the user-typed name of the font to             ' the version recognized by the application             ' Example: 'times new roman' (user-typed) is             ' changed to 'Times New Roman' (application version)

sFontName = sFont             Exit For         Else             ' Terminates the loop if the name of the font is invalid             iCounter = iCounter + 1             If iCounter = FontNames.Count Then                 sPrompt = "The font name as typed does not match "

sPrompt = sPrompt & "any fonts available to the "

sPrompt = sPrompt & "application."

sTitle = "Font Name Not Found"

MsgBox sPrompt, vbOKOnly, sTitle                 Exit Sub             End If         End If     Next sFont

' Checks each character in the document, highlighting     ' if the character's font doesn't match the OK font     For Each c In ActiveDocument.Characters         If c.Font.Name <> sFontName Then             ' Highlight the selected range of text in yellow             c.FormattedText.HighlightColorIndex = wdYellow         End If     Next c End Sub

Una de las características interesantes de esta macro es que le solicita la fuente que le parece aceptable. Luego, verifica para asegurarse de que lo que ingrese coincida con una de las fuentes disponibles en el sistema. Debido a que la macro verifica cada carácter del documento individualmente, es posible que deba tener paciencia mientras se ejecuta. Cuanto más largo sea el documento, más tardará la macro en completar su trabajo.

Si simplemente desea encontrar la próxima aparición de un cambio de fuente, entonces la siguiente macro muy breve es bastante útil:

Sub FindDifferentFont()

Selection.SelectCurrentFont   Selection.Collapse wdCollapseEnd End sub

El método SelectCurrentFont extiende la selección actual hasta que haya un cambio en la fuente (tipo de letra) o en el tamaño de la fuente. Entonces, si comienza al principio del documento y ejecuta la macro (tal vez podría asignarla a una tecla de método abreviado), entonces el punto de inserción se mueve a donde termina la fuente actual y comienza una nueva.

_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 (11069) 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-Finding_Text_Not_Using_a_Particular_Font [Encontrar texto sin usar una fuente en particular].