Убрать незадействанное пространство у документа

[Ципихович Эндрю]

здравствуйте на рисунке показал незадействованные пространства - область 1 и область 2 монитор у меня 28 дюймов, масштаб 170% - указан в правом нижнему углу, мне нужно программно кодом ВБА:
убрать область 1 и тогда область 2 увеличится по ширине в два раза
или
убрать область 2 и тогда область 1 увеличится по ширине в два раза
спасибо
ОС ПК вин10
сорри на рисунке ворд - но в либре всё идентично

[economist]

Вид - Масштаб - Масштаб - Колонки - 2 (см. рис.)

Но только это пространство все равно останется незадействованным. Мне кажется что там самое место Стилисту по F11.

[Ципихович Эндрю]

Стилисту по F11

не в курсе что это за стилист?
2 спасибо вроде самое то, подскажите как это сделать?

[economist]

В курсе, подсказал уже.

[Ципихович Эндрю]

Вид - Масштаб - Масштаб - Колонки - 2

сорри не увидел это, рисунок всё затмил))
а программно это можно сделать? спасибо

[economist]

Пробуйте макрорекордер, авось Диспетчер что-то уловит. Вариантов кликов много, собрать рабочее сочетание наверняка можно, потратив на это несколько дней.

Меня не покидает ощущение что здесь X/Y-проблема, то есть вам нужно совсем не то что вы спрашиваете, а рассказать правду вы не хотите. Прошлые рассказы я не понял, ну кроме того что можно попробовать квадратный монитор, он прекращает бесконечный поиск лучшего соотношения сторон и его ориентации портрет/альбом. Instagram так и сделал в свое время - квадратные фото умиротворили два негодующих холма перфекционизма.

Если вам нужно сделать необычный или удобный интерфейс для чего-то в LibreOffice - mission impossible. Делайте как все, просто, топорно, как получится. Лучший интерфейс, по мнению большинства моих респондентов, - "Волшебная кнопка". Вот ее-то родимую, можно вкарячить прямо в документ. Я для бизнес-приложений не делаю диалогов, их сложно кодить, проще реализовать "Форму" прямо поверх документа или на первом/последнем листе. Объем кода сокращается точно в ~2 раза.

[Ципихович Эндрю]

посмотрите пожалуйста, ничего лишнего, короче не написать:

Код Выделить Развернуть

Sub SetTwoColumns
    Dim oDoc As Object
    Dim oViewCursor As Object
    Dim oParagraph As Object
    Dim oRange As Object
    Dim oStart As Object
    Dim oEnd As Object
   
    ' Получить текущий документ и создайте новый курсор просмотра
    oDoc = ThisComponent
    oViewCursor = oDoc.CurrentController.ViewCursor
   
    ' Установить курсор просмотра в начало документа
    oViewCursor.gotoStart(False)
   
    ' Пробежаться по всем абзацам документа
    Do While Not oViewCursor.goRight(1, False) = -1
        ' Получить текущий диапазон абзаца
        oRange = oViewCursor.Text.CreateTextCursor()
        ' Получить начальную и конечную позиции диапазона
        oStart = oRange.getStart()
        oEnd = oRange.getEnd()
        ' Создать текстовый курсор для диапазона
        oRange = oDoc.Text.createTextCursorByRange(oStart, oEnd)
        ' Получить родительский абзац диапазона
        oParagraph = oRange.getStart().getText().getParent()
        ' Установить количество столбцов 2
        oParagraph.Columns.ColumnCount = 2
        ' Переместить курсор просмотра на следующий абзац
        oViewCursor.gotoNextParagraph(False)
    Loop
End Subэтот макрос сместит холст документа влево, а вправо можно? как?

[Ципихович Эндрю]

как выяснилось код в сообщении 6 работает, если в документе есть текст, а если он пустой то будет ошибка, как это исправить?
ну и в планах код сделать с проверкой:

Код Выделить Развернуть

        ' Проверить, равно ли количество столбцов 2
        If oParagraph.Columns.ColumnCount = 2 Then
            ' Если количество столбцов = 2 установить количество столбцов = 1
            oParagraph.Columns.ColumnCount = 1
        Else
            ' В противном случае установить количество столбцов равным 2
            oParagraph.Columns.ColumnCount = 2
        End If

[Ципихович Эндрю]

одним словом один раз удалось программно это сделать и тот же самый код более не делает - мистика какая-то))
может кто подсказать как убрать незадействанное пространство у документа с проверкой:

Код Выделить Развернуть

' Проверить, равно ли количество столбцов 2
        If oParagraph.Columns.ColumnCount = 2 Then
            ' Если количество столбцов = 2 установить количество столбцов = 1
            oParagraph.Columns.ColumnCount = 1
        Else
            ' В противном случае установить количество столбцов равным 2
            oParagraph.Columns.ColumnCount = 2
        End Ifспасибо

[bigor]

Мне кажется вы не в ту дверь ломитесь. Это не те колонки, о которых economist писал в #1

[Ципихович Эндрю]

Мне кажется вы не в ту дверь ломитесь. Это не те колонки, о которых economist писал в #1

ну да, и я увидел, что слишком многовато кода в сообщении 6, по идее должно это:

Код Выделить Развернуть

Sub SetTwoColumns
    Application.ActiveDocument.PageSetup.Columns.ColumnCount = 2
End Subно увы
Ошибка времени выполнения Basic.
Объектная переменная не установлена.
не подскажете как исправить?

[bigor]

не подскажете как исправить?

Нет. Не знаю. Диспатчер выбор колонок игнорирует.

[Ципихович Эндрю]

Вид - Масштаб - Масштаб - Колонки - 2

а это давно так было?
а то в ворде 2013 появилось что подобное, а в 2007 не было-а в либре как обстоят дела с этим?

[sokol92]

В этом сообщении Питоньяка показано, как устанавливать различные виды просмотра страниц документа программным путем (спасибо Михаилу за ссылку).

[Ципихович Эндрю]

sokol92 - спасибо, ознакомлюсь