InputUser Content verändern

[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")

[komma4]

Verwende den ServiceName com.sun.star.text.TextField.Input, nicht com.sun.star.text.TextField.InputUser

[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.

[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.