Как быстро превратить поля данных в текст?

[sgres]

Здравствуйте! Подскажите пожалуйста как быстро избавиться в файле, полученном из Word,  от полей данных, превратив их в обычный текст?
В Word это осуществляется двумя нажатиями горячих клавиш:
1. Ctrl-A (выбрать все)
2. Ctrl-Shift-F9 (убрать поля).
И документ освобождается от полей.
Перекопал в LO7.3 все пункты меню. Либо не нашел, либо этого нет?
Заранее благодарю!

[mikekaganski]

tdf#45946

Баг 57566 имеет пример кода на Basic, который должен реализовывать требуемое (сам не тестировал).

[sgres]

Баг 57566 имеет пример кода на Basic, который должен реализовывать требуемое (сам не тестировал).

Спасибо, попробовал! В образце сработало. Осталось сообразить как это перетащить в свои шаблоны. Метод научного тыка экспорт - импорт пока не сработал.  Придется погружаться глубже... ))

[sokol92]

Попробуйте такой короткий макрос (подход тот же):

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

' Заменяет текстовые поля на соответствующий текст.
' Примечания (Annotations) будут удалены.
Sub UnlinkTextFields()
  Dim oDoc, oField
  oDoc=ThisComponent
  For Each oField In oDoc.TextFields
    oField.Anchor.SetString oField.getPresentation(False)
    oField.Dispose
  Next oField
End Sub


[sgres]

Попробуйте такой короткий макрос (подход тот же):

ВОСХИТИТЕЛЬНО!!!  Огромное спасибо! Вставил без проблем и сразу все отработало без танцев с бубнами! )))