OpenOffice.info

If NOT oTxtFeld.hasByName(User & "Geraetenummer")  Then MsgBox "Das Benutzerfeld ""Gerätenummer"" nicht ist vorhanden"

oDoc = thisComponent
oTextFields = oDoc.getTextFields
enumFields = oTextFields.createEnumeration
Do While enumFields.hasMoreElements
  nextField = enumFields.NextElement
  If nextField.TextFieldMaster.Name = "Geraetenummer" Then
    MsgBox "Benutzerfeld ""Geraetenummer"" ist vorhanden"
    Exit Sub
  End If
Loop

Aloha

[quote="hotti"]Scheint so zu sein, daß 'Wahr" ist,
wenn das Textfeld [color=#FF4040]nicht[/color] vorhanden ist[/quote]

Nein, definitiv nicht. Die Methode ist ja eigentlich schon sprechend, was den Rückgabewert angeht, aber hier auch nochmal schwarz auf weiss ;)
[url=http://api.openoffice.org/docs/common/ref/com/sun/star/container/XNameAccess.html#hasByName]API: XNameAccess -> hasbyName[/url]

[quote="hotti"]If [color=#FF0080]Not[/color] oTxtFeld....funktioniert leider nicht.[/quote]
Natürlich funktioniert das:
[code]If NOT oTxtFeld.hasByName(User & "Geraetenummer") Then MsgBox "Das Benutzerfeld ""Gerätenummer"" nicht ist vorhanden"[/code]

Ich vermute eher, dass Dein Problem woanders liegt:
Du hast ein Benutzerfeld names "Geraetenummer" irgendwann mal definiert und danach möglicherweise auch wieder aus dem Text entfernt.
Wenn Du das Benutzerfeld allerdings nicht komplett aus dem Dokument löschst (Einfügen -> Feldbefehl -> Andere -> Variablen -> Löschen), dann wird obiger Aufruf dieses Feld auch finden.
[url=http://api.openoffice.org/docs/common/ref/com/sun/star/text/XTextFieldsSupplier.html#getTextFieldMasters]getTextFieldMasters[/url] liefert Dir alle Felder, die in diesem Dokument definiert sind, unabhängig davon, ob sie auch tatsächlich irgendwo im Text vorkommen.
Willst Du dagegen eine tatsächlich vorhandene Instanz dieser Textfelder überprüfen, musst Du einen anderen Weg einschlagen, nämlich den über [url=http://api.openoffice.org/docs/common/ref/com/sun/star/text/XTextFieldsSupplier.html#getTextFields]getTextFields[/url]:

[code]
oDoc = thisComponent
oTextFields = oDoc.getTextFields
enumFields = oTextFields.createEnumeration
Do While enumFields.hasMoreElements
nextField = enumFields.NextElement
If nextField.TextFieldMaster.Name = "Geraetenummer" Then
MsgBox "Benutzerfeld ""Geraetenummer"" ist vorhanden"
Exit Sub
End If
Loop
[/code]

oDok = ThisComponent
User = "com.sun.star.text.FieldMaster.User."
oTxtFeld = oDok.getTextFieldMasters()
If NOT ( oTxtFeld.hasByName(User & "Geraetenummer") ) Then 
  MsgBox "Das Benutzerfeld ""Gerätenummer"" ist nicht vorhanden"
End If

Hallo Hotti,


funktioniert natürlich auch mit NOT (wenn geklammert)

[code]
oDok = ThisComponent
User = "com.sun.star.text.FieldMaster.User."
oTxtFeld = oDok.getTextFieldMasters()
If NOT ( oTxtFeld.hasByName(User & "Geraetenummer") ) Then
MsgBox "Das Benutzerfeld ""Gerätenummer"" ist nicht vorhanden"
End If[/code]

Das ist jetzt auch getestet 8)

If oTxtFeld.hasByName(User & "Geraetenummer")  Then MsgBox "Das Benutzerfeld ""Gerätenummer"" ist vorhanden"

[code]
If oTxtFeld.hasByName(User & "Geraetenummer") Then MsgBox "Das Benutzerfeld ""Gerätenummer"" ist vorhanden"[/code]


(ungetestet, aus meiner Krabbelkiste)