查看 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/

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

Answer 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

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

Last line of text cut off when viewing MS Word documents

ms-office

openoffice-writer

libreoffice

phpword

libreoffice-basic