Cuando trabaja con un documento durante mucho tiempo, o cuando hereda un documento de otra persona, es muy posible que contenga estilos que ya no se utilizan. Es posible que desee deshacerse de estos estilos, pero esto puede ser peligroso para el formato de su documento si comienza a eliminarlos sin saber que realmente no están en uso.

Aquí es donde una macro resulta útil. Puede buscar rápidamente en un documento para ver si se usa un estilo en particular en algún lugar. Si no es así, el estilo se puede eliminar fácilmente. La siguiente macro, DeleteUnusedStyles, hace precisamente eso.

Sub DeleteUnusedStyles()

Dim oStyle As Style

For Each oStyle In ActiveDocument.Styles         'Only check out non-built-in styles         If oStyle.BuiltIn = False Then             With ActiveDocument.Content.Find                 .ClearFormatting                 .Style = oStyle.NameLocal                 .Execute FindText:="", Format:=True                 If .Found = False Then oStyle.Delete             End With         End If     Next oStyle End Sub

Tenga en cuenta que la macro ignora un estilo si es un estilo integrado. Esto se debe a que eliminar un estilo incorporado en realidad no lo elimina, sino que solo restablece ese estilo a su condición original predeterminada. De hecho, Word no permite que los estilos integrados se eliminen de un documento. Incluso si el estilo incorporado ya no se usa, pero una vez se usó en el documento, seguirá apareciendo en la lista desplegable de estilos.

_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 (1337) se aplica a Microsoft Word 97, 2000, 2002 y 2003.