Seite 1 von 1
Re: InputUser Content verändern
Verfasst: Fr, 21.08.2009 15:32
von komma4
Dein Code (
im engl. Forum gepostet) ist zu mindest beim abgefragten
service falsch - und dürfte gar nicht laufen.
Code: Alles auswählen
If vVal.supportsService("com.sun.star.text.TextField.Input")
Re: InputUser Content verändern
Verfasst: Sa, 22.08.2009 11:47
von komma4
Verwende den ServiceName com.sun.star.text.TextField.Input, nicht com.sun.star.text.TextField.InputUser
Re: InputUser Content verändern
Verfasst: So, 23.08.2009 11:38
von komma4
Ich kann es Dir nicht sagen, warum Du InputUser heraus gefunden hast.
Ich habe bei meinem Test in Writer über Einfügen>Feldbefehl>Andere...>Funktion>Eingabefeld eingefügt - und die Änderung per Code mit dem Servicenamen com.sun.star.text.TextField.Input erreicht.
Re: InputUser Content verändern
Verfasst: Mo, 24.08.2009 08:47
von komma4
auch das kann ich
nicht bestätigen:
Code aus
Andrew Pitonyaks Makro Dokument
Code: Alles auswählen
Sub de26901
vEnum = thisComponent.getTextFields().createEnumeration()
If Not IsNull(vEnum) Then
Do While vEnum.hasMoreElements()
vVal = vEnum.nextElement()
If vVal.supportsService("com.sun.star.text.TextField.Input") Then
sHint=vVal.getPropertyValue("Hint")
sContent=vVal.getPropertyValue("Content")
s1=s1 &"Hint:" & sHint & " - Content: " & sContent & chr(13)
'change the content
vVal.setPropertyValue("Content", "My new content")
ThisComponent.TextFields.refresh()
End If
Loop
End If
End Sub
funktioniert (setzt den Inhalt um), und ich kann anschliessend weiterhin drauf klicken und den Inhalt verändern.