Appliquer un style avant génération du texte

[inrepublica]

Bonjour à toutes et tous,

Dans une petite macro je génère du texte à la volée. J’aimerai mettre en forme ce texte à l’aide d’un style prédéfini (Texte préformaté par ex.) et de base dans Libre Office comme ça pas besoin de vérifier si celui-ci existe. J’ai bien chercher sur le forum mais je n’ai rien trouvé et sur le net on trouve beaucoup de ressource pour Calc mais beaucoup moins pour Writer. Enfin bref voila où j’en suis actuellement:

Sub insertion
	Dim oText As Object
	Dim oVC As Object
	 oVC = thisComponent.getCurrentController.getViewCursor
	 oText = oVC.text
	 oText.insertString(oVC, "Texte inséré :", False)
	 oText.insertControlCharacter(oVC, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
	 oText.insertString(oVC, "Nouveau paragraphe avec ", False)
	 oVC.setPropertyValue("CharWeight", com.sun.star.awt.FontWeight.BOLD)
	 oText.insertString(oVC, "en gras", false)
	 oVC.setPropertyValue("CharWeight", com.sun.star.awt.FontWeight.NORMAL)
	 oText.insertString(oVC, "et sans.", false)
End sub

[elmau]

	oVC = thisComponent.getCurrentController.getViewCursor

	cursor = oVC.Text.createTextCursorByRange(oVC)
	T = cursor.Text
	T.insertString(cursor, "Texte inséré :", False)
	cursor.ParaStyleName = "Preformatted Text"
	
	T.insertControlCharacter(cursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
	T.insertString(cursor, "Nouveau paragraphe avec  ", False)
	cursor.ParaStyleName = "Preformatted Text"

[inrepublica]

Merci c’est exactement ce qu’il me fallait!