Platzhalter mit Hilfe eines Makros.

[lastraven]

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???

[DPunch]

Aloha

Fast das gleiche wurde hier:
viewtopic.php?f=18&t=32134
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: Alles auswählen

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

[lastraven]

Hallo DPunch Ich danke dir vielmals,

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: Alles auswählen

oField.Hint = "Hinweis"