Derek necesita una forma de encontrar, en un documento, la próxima vez que cambie el tipo de letra (nombre de la fuente). Por ejemplo, si el punto de inserción está en el medio del documento, le gustaría que Word le hiciera saber, comenzando en ese punto, dónde ocurre el siguiente cambio. Derek se pregunta si hay alguna forma de realizar esa tarea.

No hay una forma incorporada de realizar esta tarea, aunque es posible que pueda saber visualmente cuándo ha cambiado el tipo de letra. A menudo puedo saberlo simplemente aumentando el factor de zoom del documento (digamos, al 200% o 250%) y luego escaneando visualmente el documento para buscar cambios en la apariencia. Por supuesto, esto dependerá de la disparidad visual entre las dos fuentes adyacentes.

Si prefiere una solución basada en macros, puede crear una que guarde el nombre del tipo de letra en la ubicación del punto de inserción actual y luego recorra cada carácter restante del documento. Si el tipo de letra difiere del original, puede notificar al usuario. Aquí hay un ejemplo de tal macro:

Sub ChangeOfFont()

Dim fntName As String     Dim aRange As Range

Set aRange = Selection.Range     aRange.Collapse Direction:=wdCollapseStart     aRange.MoveEnd Unit:=wdCharacter     fntName = aRange.Font.Name     Do         aRange.MoveEnd Unit:=wdCharacter         aRange.MoveStart Unit:=wdCharacter     Loop Until aRange.Font.Name <> fntName Or _       aRange.Bookmarks.Exists("\EndOfDoc")

aRange.Select     If aRange.Bookmarks.Exists("\EndOfDoc") Then         MsgBox "End of document"

Else         MsgBox "Font change from " & fntName & " to " & aRange.Font.Name     End If End Sub

La mayor parte del trabajo se realiza en el bucle Do, donde se comprueba la fuente de cada carácter para ver si ha cambiado. Tenga en cuenta que el ciclo también comprueba si se llega al final del documento, momento en el que desearía que se detuviera la macro.

_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 (5131) se aplica a Microsoft Word 2007, 2010, 2013 y 2016.