Задать текст элемента управления с помощью макроса в Libre Office Draw

Question

Я разработал документ в Libre Office Draw, и теперь мне нужно персонализировать его, заполнив определенные элементы управления (в основном метки) именами, считанными из текстового файла.

Чтение из текстового файла было тривиальным, но я столкнулся с трудностями при получении ссылки на элемент управления, помещенный в документ Libre Office Draw; все упомянутые функции были связаны с элементами управления, помещенными в диалоговое окно, и в данном случае они оказались неприменимыми.

Это может быть первым шагом к достижению моей цели:

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

Но как найти элемент управления в "документе", скажем, "MyLabel1"? После заполнения метки документ необходимо будет экспортировать в PDF.

Большое спасибо!

Answer 1

Для экспорта документа LO Draw в PDF из Basic вы можете использовать следующий код.

Sub ExportToPDF
  sURL = convertToURL("d:\temp\lo_draw.pdf")
  dim mFileType(0)
  mFileType(0) = createUnoStruct("com.sun.star.beans.PropertyValue")
  mFileType(0).Name = "FilterName"
  mFileType(0).Value = "draw_pdf_Export"
  thisComponent.storeToURL(sURL, mFileType())
End Sub

Чтобы выяснить, как получить доступ к "меткам", предоставьте образец документа LO Draw.