Saltear al contenido principal

Formatos de listas personalizados

Word incorpora 12 estilos de numeración para las listas. Esto, añadido a las opciones de formato, como las vistas para listas multinivel, tanto para las vinculadas a estilos de título como para las que no están vinculadas, ofrece solución a nuestras necesidades de numeración.

Aún así, hay ocasiones, como cuando queremos hacer una lista con ordinales en femenino, o cuando necesitamos listas que incluyan la letra eñe, por citar solo las dos más frecuentes, que las opciones integradas de Word se quedan cortas.

Muestra los estilos de numeración para las listas integrados en Word

Definir nuevo formato de número con los estilos de numeración desplegados.

Para estas ocasiones necesitamos una sencilla Macro, que pegada en un módulo de nuestra plantilla Normal, o la que sea, podremos utilizar siempre que la necesitemos en cualquier documento basado en esas plantillas:

Dim arrNumbers As Variant

Dim i As Long

Dim rng As Range

arrNumbers = Split(«Primera Segunda Tercera Cuarta Quinta Sexta Séptima Octava Novena«)

Set rng = Selection.Range

For i = 1 To rng.Paragraphs.count

With rng.Paragraphs(i).Range

.Text = arrNumbers(i – 1) & vbTab & .FormattedText

.ParagraphFormat.TabHangingIndent 2

End With

Next i

Exit Sub

 

El contenido en negrita es el que podemos cambiar, de acuerdo a nuestras necesidades. Igualmente puedes añadir otros formatos, como poner en negrita los elementos de la lista, añadiendo Font.Bold=True, bajo .ParagraphFormat, encima de End With.

Deseo que te guste y sea útil. Si es así sigue el blog y compártelo con tus contactos. Espero tus comentarios y sugerencias para nuevos temas.

También puedes seguir el Curso avanzado de Word en mi canal de Youtube.

 

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

SI TE HA SIDO ÚTIL

BMC logoInvítame a una cerveza

SI TE HA SIDO ÚTIL

BMC logoInvítame a una cerveza

Volver arriba