LIbreoffice writer Style to format Marathi text

gistfile1.txt

Sub myStyle()
    ' Get access to the document
    Dim document As Object
    Dim styleFamilies As Object
    Dim paraStyles As Object
    Dim newStyle As Object
    Dim styleName As String
    Dim cursor As Object

    document = ThisComponent
    
    ' Define new style name
    styleName = "MyJustifiedStyle"
    
    ' Get access to paragraph styles
    styleFamilies = document.StyleFamilies
    paraStyles = styleFamilies.getByName("ParagraphStyles")
    
    ' Check if style already exists, otherwise create it
    If Not paraStyles.hasByName(styleName) Then
        newStyle = document.createInstance("com.sun.star.style.ParagraphStyle")
        newStyle.ParentStyle = "Default Paragraph Style" ' Inherit properties
        
        ' Paragraph formatting
        newStyle.ParaAdjust = com.sun.star.style.ParagraphAdjust.BLOCK ' Justified alignment
        newStyle.ParaIsHyphenation = True ' Enable automatic hyphenation
        newStyle.ParaFirstLineIndent = 700 ' First line indent (0.5 cm, in 1/100 mm)
        newStyle.ParaBottomMargin = 500 ' Set "Below Paragraph" spacing to 0.50 cm
        newStyle.ParaContextMargin = True ' "Do not add space between paragraphs of the same style"
        
        ' Apply font settings
        newStyle.CharFontNameComplex = "Shobhika Regular" ' Apply to Complex (CTL) text only
        newStyle.CharHeightComplex = 12 ' Font size 12 pt for Complex text
        
        paraStyles.insertByName(styleName, newStyle) ' Add new style
    End If
    
    ' Get the text body and select all text
    cursor = document.Text.createTextCursor()
    cursor.gotoStart(False) ' Move cursor to start
    cursor.gotoEnd(True) ' Select entire document
    
    ' Apply the new paragraph style
    cursor.ParaStyleName = styleName
End Sub