查看 MS Word 文档时最后一行文本被截断答案

【问题标题】：Last line of text cut off when viewing MS Word documents查看 MS Word 文档时最后一行文本被截断
【发布时间】：2016-02-29 16:04:52
【问题描述】：

我在 Libre Office 中创建文件时遇到最后一行中断问题，但是当我在 word 2013 或 2016 中打开它时，最后一行内容被截断。

您可以更详细地了解问题。

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

我在网上搜索了很多解决方案，但我没有找到任何东西。是否有任何自动化方式（宏/任何附加）我可以在文件末尾添加 3-4 个空输入。

【问题讨论】：

标签： ms-office libreoffice phpword openoffice-writer libreoffice-basic

【解决方案1】：

以下基本代码由Andrew Pitonyak's Macro document 拼凑而成，尤其是第 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

【讨论】：