OpenOffice.info

TextFieldEnum = ThisComponent.getTextFields.createEnumeration
TextField = TextFieldEnum.nextElement()

TextField.VariableName

TextField.setPropertyValue("Content" ,"8")

So ist TextField definiert:

[code]TextFieldEnum = ThisComponent.getTextFields.createEnumeration
TextField = TextFieldEnum.nextElement()[/code]

Alle Textfelder durchlaufen und das richtige finden anhand es Variablennamens:

[code]TextField.VariableName[/code]

Und neuen Wert setzen:

[code]TextField.setPropertyValue("Content" ,"8")[/code]

Alle Felder aktualisieren.


Gruß
Stephan

...
		Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
		Set objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop") 
		Set objDocument = objDesktop.CurrentComponent()	
		'Textobjekt erstellen
		Set objText= objDocument.getText()
		
		Dim FeldForm List As String
		'Name der Eingabefelder
		FeldForm(0)="Bezeichnung"
		FeldForm(1)="Typ"
		FeldForm(2)="Kategorie"
		
		Forall f In FeldForm
			Set Felder = objDocument.getTextFields()
			Set Feldaufzaehlg = Felder.createEnumeration()
			
			Do While Feldaufzaehlg.hasMoreElements()
				Set Feld = Feldaufzaehlg.nextElement()
				service =  "com.sun.star.text.TextField.Input"
				
				If Feld.supportsService(service) And feld.hint=f Then
					wert=uidoc.FieldGetText(f)
					'Print "Variablenprüfung:" & Chr(10) & "Feld: " & Feld.hint & " | f: " & f & " | Wert: " & wert 'Variablen stimmen
					Feld.Content=wert
				End If
				
			Loop		
			
		End Forall		
		Call Felder.Refresh()
...

moin liebe OOo community...

gibt es eine möglichkeit einer über einfügen -> feldbefehl -> andere -> variablen variable einen wert per macro zu geben?

ich habe das ganze schon mit eingabefeldern realisiert, nun soll das noch mit einer variablen funktionieren, da der benutzer nicht die möglichkeit haben soll dies zu ändern...mein script für eingabefelder sieht wie folgt aus (ist von lotus, da ich das ganze für die übergabe von notes in ein oo dok machen muss)

[code]...
Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop")
Set objDocument = objDesktop.CurrentComponent()
'Textobjekt erstellen
Set objText= objDocument.getText()

Dim FeldForm List As String
'Name der Eingabefelder
FeldForm(0)="Bezeichnung"
FeldForm(1)="Typ"
FeldForm(2)="Kategorie"

Forall f In FeldForm
Set Felder = objDocument.getTextFields()
Set Feldaufzaehlg = Felder.createEnumeration()

Do While Feldaufzaehlg.hasMoreElements()
Set Feld = Feldaufzaehlg.nextElement()
service = "com.sun.star.text.TextField.Input"

If Feld.supportsService(service) And feld.hint=f Then
wert=uidoc.FieldGetText(f)
'Print "Variablenprüfung:" & Chr(10) & "Feld: " & Feld.hint & " | f: " & f & " | Wert: " & wert 'Variablen stimmen
Feld.Content=wert
End If

Loop

End Forall
Call Felder.Refresh()
...[/code]

das script funktioniert...nur wie gesagt, würde die werte gerne variablen zuweißen...

danke