Eingabefeld wird bei Öffnen des Dokumentes per script nicht abgefragt

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Eingabefeld wird bei Öffnen des Dokumentes per script nicht abgefragt

Re: Eingabefeld wird bei Öffnen des Dokumentes per script nicht abgefragt

von Stephan » Di, 24.03.2015 08:40

Ich sehe keinen großen Unterschied denn auch für Eingabefelder muss lediglich das gewünschte Feld identifiziert und dann der Text eingetragen werden, lediglich haben Eingabefelder keinen Namen wie Textmarken sondern müssen über ihren Hinweistext oder den eigentlichen aktuellen Textinhalt identifiziert werden:

Code: Alles auswählen

Sub eingabe()
x_enum = ThisComponent.getTextFields().CreateEnumeration()
	Do While x_enum.hasMoreElements
		x_field = x_enum.NextElement()
			If x_field.SupportsService("com.sun.star.text.textfield.Input") Then
				'prüfen welches konkrete Feld
				If x_field.Hint = "Hinweistext" Then
				'alternativ: If x_field.Content = "mein alter Feldtext" Then
					x_field.Content = "mein neuer Feldtext"
					x_field.update()
				End If
			End If
	Loop
End Sub

Gruß
Stephan

Re: Eingabefeld wird bei Öffnen des Dokumentes per script nicht abgefragt

von pch1965 » Mo, 23.03.2015 13:33

Hallo Stephan,
vielen Dank, hat super funktioniert.
Kann man solche Eingabefelder auch direkt (per Script) befüllen lassen?
Bei Platzhaltern funktioniert das ja problemlos.
Bei Eingabefeldern hab ich das noch nicht hinbekommen?

Re: Eingabefeld wird bei Öffnen des Dokumentes per script nicht abgefragt

von Stephan » Fr, 20.03.2015 07:38

Hat jemand eine Idee, woran dies liegen könnte?
.loadComponentFromURL erwartet den entsprechenden Parameter im Parameterarray:
http://www.openoffice.org/api/docs/comm ... cMode.html

Code: Alles auswählen

Sub eingabe()
Dim sVorlage as String
sVorlage = ConverttoUrl("D:\eingabetest.ott")
Dim Args(0) As New "com.sun.star.beans.PropertyValue"
Args(0).Name = "UpdateDocMode"
Args(0).Value = com.sun.star.document.UpdateDocMode.FULL_UPDATE

oDoc = StarDesktop.loadComponentFromUrl(sVorlage, "_blank", 0, Args())
End Sub
Gruß
Stephan

Eingabefeld wird bei Öffnen des Dokumentes per script nicht abgefragt

von pch1965 » Do, 19.03.2015 17:55

Hallo,
ich habe eine Writervorlage, bei der die Eingabefelder per Dialog abgefragt werden.
Öffne ich die Datei direkt im Explorer, funktioniert alles, wie es soll.
Öffne ich die Datei per script mit:

Code: Alles auswählen

Dim sVorlage as String
sVorlage = ConverttoUrl( "Pfad")
Dim Args()
oDoc = StarDesktop.loadComponentFromUrl(sVorlage, "_blank", 0, Args())
werden die Daten nicht abgefragt, sondern lediglich das Dokument geöffnet.
Hat jemand eine Idee, woran dies liegen könnte?

Nach oben