可能创建和设置变量字段的简单 OpenOffice Basic 代码

Question

我不熟悉 OpenOffice Basic，但我需要一个简单的宏代码来设置文档变量（用户定义的字段可在 GUI 中的 "field commands"/"Variables" 下访问），我可以将其分配给按钮。

示例：我创建了一个按钮 A，在单击时调用宏子 SetDocVar，而 SetDocVar 将文档 variable/field 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