OpenOffice.info

Ok, funktioniert wunderbar! Danke.

Herzlichen Dank! Ich werde es sofort ausprobieren.

Sub Main
	tmp = ThisComponent.TextFields.createEnumeration
	Do While tmp.hasMoreElements
		tf = tmp.nextElement
		if tf.supportsService("com.sun.star.text.TextField.User") And _
			tf.TextFieldMaster.Name = "meinTextFeldName" then
			tf.TextFieldMaster.Content = "meinNeuerText"
		end if
	Loop
	ThisComponent.TextFields.refresh
End Sub

z.B. wenn das Benutzerfeld den Namen "meinTextFeldName" hat und auf Wert "meinNeuerText" gesetzt werden soll:

[code]Sub Main
tmp = ThisComponent.TextFields.createEnumeration
Do While tmp.hasMoreElements
tf = tmp.nextElement
if tf.supportsService("com.sun.star.text.TextField.User") And _
tf.TextFieldMaster.Name = "meinTextFeldName" then
tf.TextFieldMaster.Content = "meinNeuerText"
end if
Loop
ThisComponent.TextFields.refresh
End Sub[/code]

Hallo,

Ich bin nicht vertraut mit OpenOffice Basic, müsste es aber nun benutzen um mein Ziel
zu erreichen, verfüge jedoch leider nicht über genügend Zeit um mich anzulernen.

Ich bräuchte ein Makro, welches ich einem Knopf zuweisen kann, das dann ein beliebiges
Feld (z.B Name "Testfeld") auf einen konstanten Wert (z.B. "Test") setzt. Ich spreche hier
von einem Benutzerfeld, wie man es in der GUI im Dialog "Feldbefehle", Registerkarte
"Variablen" setzen kann. Bei Nicht-Existenz sollte die Variable automatisch angelegt werden.

Wie würde das funktionieren bzw. wie sähe der Code dann aus?


[color=#00AA00]_________________[/color]
[size=85][color=#00AA00][b]Moderation:[/b] Thema verschoben von [url=http://de.openoffice.info/viewforum.php?f=1]OOo Writer[/url] nach [url=http://de.openoffice.info/viewforum.php?f=18]OOo Basic und Java[/url], wo alle Themen zur individuellen Programmierung hingehören.—lorbass, Moderator
[/color][/size]