Sub FieldInsertTest Dim doc As Object doc = ThisComponent Dim currentCursor As Object currentCursor = doc.CurrentController.ViewCursor Dim textField As Object textField = doc.createInstance("com.sun.star.text.TextField.ConditionalText") textField.Condition = "True" textField.TrueContent = "My true text" textField.FalseContent = "My false text" doc.Text.insertTextContent(currentCursor.End, textField, False) End Sub