La dernière ligne du texte est coupée lors de la visualisation des documents MS Word

Question

Je suis confronté à un problème de dernière ligne lorsque j'ai créé un fichier dans Libre Office, mais lorsque je l'ouvre dans le mot 2013 ou 2016, le contenu de la dernière ligne est coupé entre.

Vous pouvez comprendre le problème plus en détail.

http://blog.submittable.com/2015/04/last-line-of-text-cut-off-when-viewing-ms-word-documents/

J'ai recherche beaucoup sur le Web pour la solution, mais je ne trouve rien. Existe-t-il un moyen automatisé (macros/add-on) par lequel je peux ajouter 3-4 entrée vide à la fin du fichier.

Answer 1

Le code de base suivant est bricolé à partir de Andrew Pitonyak's Macro document, en particulier la section 5.17.1.

Sub AddParagraphBreaks 
    Dim oCursor As Object 
    Dim oText As Object 
    Dim iBRKConst As Long 
    Dim i As Integer 
    oText = ThisComponent.Text 
    oCursor = oText.createTextCursor() 
    oCursor.gotoEnd(False) 
    iBRKConst = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK 
    For i = 1 to 3 
     oText.insertControlCharacter(oCursor, iBRKConst, False) 
    Next i 
End Sub