Insert formatted text with a macro

[ohallot]

Having the history of the question

Macro for inserting current date as DD/MM/YYYY and after that add a text in LO Writer

I can’t find the info for writing a string with a custom format. I’ve tried recording a macro and using a date field but didn’t work. my macro inserts a date but the format is DD.MM.YYYY not DD/MM/YYYY, please help me: sub addDateText dim document as object dim dispatcher as object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") dim sText as string sText = Format(Now(),"dd/mm/yyyy") dim text…

The relevant lines are

    labelString = oCurs.ListLabelString
    oCurs.getText().insertString(oCurs, labelString & " ", False)

I’d like to insert labelString as a formatted string with char style ZZZ.

In HTML-ish, that would be equivalent to

 <p><span class="ZZZ">'content of labelString'</span> ... </p>

[ohallot]

Placing at the start of the paragraph:

     oCurs.gotoStartOfParagraph(false)
     oCurs.CharStyleName = "Strong Emphasis"
     labelString = oPar.ListLabelString & " "
     oCurs.getText().insertString(oCurs, labelString , False)