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