查看MS Word文档时截取的最后一行文本

Question

当我在Libre Office中创建一个文件时，我正面临着最后一行切断的问题，但当我在word 2013或2016年打开它时，最后一行内容在中间被切断。

你可以更详细地理解这个问题。

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

我在网上搜索了很多解决方案，但是我什么也没找到。是否有任何自动方式(宏/任何添加)，我可以在文件末尾添加3-4空enter。

Answer 1

以下基本代码由安德鲁·皮托尼亚克的宏观文件拼凑而成，特别是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