Code: Select all
Sub SelectionInUnformattedTextfield()
Dim Sel as new com.sun.star.awt.Selection
Sel.Min = ThisComponent.Drawpage.Forms.getByName("Demo").getByName("Min").Value
Sel.Max = ThisComponent.Drawpage.Forms.getByName("Demo").getByName("Max").Value
ThisComponent.getCurrentController.getControl(_
ThisComponent.Drawpage.Forms.getByName("Demo").getByName("Unformatted")_
).setFocus
ThisComponent.getCurrentController.getControl(_
ThisComponent.Drawpage.Forms.getByName("Demo").getByName("Unformatted")_
).setSelection(Sel)
ThisComponent.Drawpage.Forms.getByName("Demo").getByName("Old").String = ThisComponent.getCurrentController.getControl(_
ThisComponent.Drawpage.Forms.getByName("Demo").getByName("Unformatted")_
).SelectedText
end sub
Sub OverwriteSelection
Dim Sel as new com.sun.star.awt.Selection
Sel = ThisComponent.getCurrentController.getControl(_
ThisComponent.Drawpage.Forms.getByName("Demo").getByName("Unformatted")_
).getSelection()
ThisComponent.getCurrentController.getControl(_
ThisComponent.Drawpage.Forms.getByName("Demo").getByName("Unformatted")_
).insertText(Sel, ThisComponent.Drawpage.Forms.getByName("Demo").getByName("New").String )
Rem Place cursor
ThisComponent.Drawpage.Forms.getByName("Demo").getByName("Min").Value = _
ThisComponent.Drawpage.Forms.getByName("Demo").getByName("NewCursorPosition").Value
ThisComponent.Drawpage.Forms.getByName("Demo").getByName("Max").Value = _
ThisComponent.Drawpage.Forms.getByName("Demo").getByName("NewCursorPosition").Value
SelectionInUnformattedTextfield
end sub