OpenOffice.info

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

auch das kann ich [u]nicht[/u] bestätigen:

Code aus [url=http://www.pitonyak.org/oo.php]Andrew Pitonyaks Makro Dokument[/url]
[code]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[/code]
funktioniert (setzt den Inhalt um), und ich kann anschliessend weiterhin drauf klicken und den Inhalt verändern.

Ich kann es Dir nicht sagen, warum Du [color=#008000]InputUser[/color] heraus gefunden hast.
Ich habe bei meinem Test in Writer über [color=#008000]Einfügen>Feldbefehl>Andere...>Funktion>Eingabefeld[/color] eingefügt - und die Änderung per Code mit dem Servicenamen [color=#008000]com.sun.star.text.TextField.Input[/color] erreicht.

Verwende den ServiceName [color=#008000]com.sun.star.text.TextField.Input[/color], nicht [color=#008000]com.sun.star.text.TextField.Input[/color][color=#FF4000]User[/color]

If vVal.supportsService("com.sun.star.text.TextField.Input")

Dein Code ([url=http://www.oooforum.org/forum/viewtopic.phtml?t=87925]im engl. Forum gepostet[/url]) ist zu mindest beim abgefragten [i]service[/i] falsch - und dürfte gar nicht laufen.
[code]
If vVal.supportsService("com.sun.star.text.TextField.Input")[/code]