Visual Basic para Aplicaciones - Word

Sub AñadirSaltosDeLínea()

    Selection.HomeKey wdStory, False 'Nos situamos al comienzo del documento

    Do

        Selection.EndKey wdLine 'Vamos al final de la línea

        If Asc(Selection) <> 13 And Asc(Selection) <> 11 Then 'Si no es un párrafo vacío o de una sola línea

            Selection.TypeBackspace 'Opcional. Borramos el espacio en blanco del final de la línea

            Selection.TypeText Chr(11) 'Tecleamos el salto de línea

            Selection.MoveLeft wdCharacter 'Retrocedemos un carácter para volver a la posición original

            Selection.HomeKey wdLine 'Volvemos al principio de la línea

        End If

    Loop While Selection.MoveDown(wdLine, 1) > 0 'Bajamos una línea hasta llegar al final del documento

End Sub