Question

当我在Libre Office中创建文件时，我面临最后一行截止问题，但是当我在2013或2016年的单词中打开它时，最后一行内容会在中间截止。

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

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

我在网上搜索了很多解决方案，但我没有找到任何东西。是否有任何自动方式（宏/任何添加）我可以在文件末尾添加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文档时，最后一行文字被切断

1 个答案: