Macros VBA para ajustar el espaciado de párrafos en Word

Ajustando el espaciado con macros

Es muy común necesitar ajustar la maquetación en documentos de Microsoft Word, y a veces los menús estándar no son suficientes para hacerlo rápido. Si necesitas modificar el espaciado posterior de tus párrafos de forma precisa, una solución excelente es utilizar macros VBA personalizadas.

Para implementar esto, puedes copiar y pegar el código directamente en un módulo dentro de tu plantilla Normal.dotm. Esto asegura que las macros estén disponibles inmediatamente sin tener que guardarlas en archivos externos o reiniciar la aplicación.

Código para aumentar y reducir el espaciado

A continuación, tienes el código funcional para ambas operaciones:

' Aumenta en 1 punto el Espacio después del párrafo
Sub AumentarEspaciadoParrafo1p()
    Dim p As Paragraph
    For Each p In Selection.Paragraphs
        With p.Format
            .SpaceAfter = .SpaceAfter + 1
        End With
    Next p
End Sub

' Reduce en 1 punto el Espacio después del párrafo (sin bajar de 0)
Sub ReducirEspaciadoParrafo1p()
    Dim p As Paragraph
    For Each p In Selection.Paragraphs
        With p.Format
            If .SpaceAfter >= 1 Then
                .SpaceAfter = .SpaceAfter - 1
            Else
                .SpaceAfter = 0
            End If
        End With
    Next p
End Sub

Variantes rápidas y configuración de atajos

Además del espaciado posterior, puedes aplicar estos mismos principios para modificar el espaciado anterior o incluso ajustar el interlineado exacto en puntos si lo necesitas. Si prefieres evitar escribir código cada vez que quieres cambiar el formato, la mejor estrategia es asignar atajos de teclado a estas macros.

Para configurar los atajos, ve a Archivo → Opciones → Personalizar cinta de opciones y busca la pestaña de Atajos. Desde ahí, selecciona la categoría ‘Macros’, elige una de tus funciones (como AumentarEspaciadoParrafo1p) y asigna las teclas que prefieras para agilizar tu flujo de trabajo.