Последняя строка текста обрезается при просмотре документов MS Word

Question

Последняя строка текста обрезается при просмотре документов MS Word

Я столкнулся с проблемой обрыва последней строки при создании файла в Libre Office, но когда я открываю его в Word 2013 или 2016, содержимое последней строки пересекается между ними.

Вы можете понять проблему более подробно.

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

Я много искал в Интернете решение, но ничего не нашел. Есть ли какой-либо автоматизированный способ (макросы / любые добавления), с помощью которого я могу добавить 3-4 пустых ввода в конце файла.

0

ms-office libreoffice phpword libreoffice-basic openoffice-writer

Источник

user1491143 29 фев '16 в 16:04

1 ответ

Решение

Другие вопросы по тегам ms-office libreoffice phpword libreoffice-basic openoffice-writer

user5100564 29 фев '16 в 18:58 2016-02-29 18:58 · Accepted Answer · 2016-02-29 18:58

Следующий Базовый код собран из Макро-документа Эндрю Питоняка, особенно в разделе 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