OpenOffice.info

oField.Hint = "Hinweis"

Hallo DPunch Ich danke dir vielmals, :D

genau das habe ich auch gesucht. Dein genannten Beitrag habe ich wahrscheinlich übersehen.

Fall noch jemand einen ToolTip zum Platzhalter einfügen möchte, kann er dies auf folgende Weise erledigen(erweitern):

[code]oField.Hint = "Hinweis"[/code]

Sub PlatzhalterAmCursorEinfügen

Dim oDoc as Object, oCursor as Object, oField as Object

oDoc = thiscomponent
oCursor = oDoc.getCurrentController.getViewCursor
oField = oDoc.createInstance("com.sun.star.text.textfield.JumpEdit")
With oField
	.Placeholder = "Mein Platzhalter-Text"
	.PlaceholderType = 0 ' *****0=Text, 1=Tabelle, 2=Rahmen, 3=Grafik, 4=Objekt
End With
oDoc.getText.insertTextContent(oCursor,oField,false)

End Sub

Aloha

Fast das gleiche wurde hier:
[url]http://de.openoffice.info/viewtopic.php?f=18&t=32134[/url]
schonmal gefragt.
Die Vorgehensweise ist für alle Textfelder analog, mit z.B. dem X-Ray-Tool kannst Du Dir die Namen der wichtigen Properties des gewünschten Feldes anschauen und diese entsprechend setzen.

[code]
Sub PlatzhalterAmCursorEinfügen

Dim oDoc as Object, oCursor as Object, oField as Object

oDoc = thiscomponent
oCursor = oDoc.getCurrentController.getViewCursor
oField = oDoc.createInstance("com.sun.star.text.textfield.JumpEdit")
With oField
.Placeholder = "Mein Platzhalter-Text"
.PlaceholderType = 0 ' *****0=Text, 1=Tabelle, 2=Rahmen, 3=Grafik, 4=Objekt
End With
oDoc.getText.insertTextContent(oCursor,oField,false)

End Sub
[/code]

Hallo Leuts,

durch die Suche des Forums bin ich leider nicht weiter gekommen. :(
Ich würde gerne über ein Basic Makro einen Platzhalter in das Dokument einfügen, wenn es geht sollte es nicht über eine Aufzeichnung geschehen.
Hat vielleicht einer von euch schon mal dieses Problem erfolgreich gelöst??? :?: