0

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

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

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

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

4

1 回答 1

1

以下基本代码由Andrew Pitonyak 的宏文档拼凑而成，尤其是第 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
于 2016-02-29T18:58:56.047 回答