Простой базовый код OpenOffice для создания и установки поля переменной

Question

Я не знаком с OpenOffice Basic, но мне нужен простой макрокод для настройки переменных документа (пользовательские поля доступны в разделе «команды полей»/«Переменные» в графическом интерфейсе), которую я могу назначить кнопке.

Пример: Я создаю кнопку Вызов макроса SetDocVar на клик, а SetDocVar устанавливает переменную/поле документа MyField в строковое значение «Test».

Как это работает?

Answer 1

Вот как это работает:

Sub SetDocVar 
tmp = ThisComponent.TextFields.createEnumeration 
Do While tmp.hasMoreElements 
    tf = tmp.nextElement 
    if tf.supportsService("com.sun.star.text.TextField.User") And _ 
    tf.TextFieldMaster.Name = "MyField" then 
    tf.TextFieldMaster.Content = "Test" 
    end if 
Loop 
ThisComponent.TextFields.refresh 
End Sub