LibreOffice macro to replace unicode text bold

[AniruddhaMohod]

I have created a macro for all Exh. Bold but the macro for creating Unicode text bold is not working

Here is the macro for Exh. Bold

REM  *****  BASIC  *****

Sub ExhBold
RDescrip = ThisComponent.createReplaceDescriptor
RDescrip.searchRegularExpression = True
RDescrip.searchString = "Exh. [:digit:]{1,4}"
rngs = ThisComponent.findAll(RDescrip)
for i = 0 to rngs.count-1
   foundText = rngs.getByIndex(i)
	foundText.CharFontName = "Bitstream Charter"
	foundText.CharHeight = 14
   foundText.CharWeight = 150
next i
End Sub
It makes bold words like Exh. 1, Exh. 21, Exh. 235 etc. 

But when I just replace the code it is not giving me the expected result.

Sub NishaniBold
RDescrip = ThisComponent.createReplaceDescriptor
RDescrip.searchRegularExpression = True
RDescrip.searchString = "नि. क्र. [:digit:]{1,4}"
rngs = ThisComponent.findAll(RDescrip)
for i = 0 to rngs.count-1
   foundText = rngs.getByIndex(i)
	foundText.CharFontName = "Lohit Marathi"
	foundText.CharHeight = 14
   foundText.CharWeight = 150
next i

End Sub

It is not making bold the following words नि. क्र. १, नि. क्र. २१, नि. क्र. २३५
I can do this by find and replace but I want a macro for it. Please help.

[gabix]

I have edited your question. For future, use the pre-formatted code option when posting a program code sample, otherwise it is not readable.

[mikekaganski]

Try also setting “CharFontNameComplex”, “CharHeightComplex”, “CharWeightComplex”, and/or “CharFontNameAsian”, “CharHeightAsian”, “CharWeightAsian”.

[AniruddhaMohod]

Thanks a lot

[AniruddhaMohod]

My problem is solved by the comment of Mike Kaganski. Here is the macro that worked. Thanks a lot ask.libreoffice for a quick reply.

RDescrip = ThisComponent.createReplaceDescriptor
RDescrip.searchRegularExpression = True
RDescrip.searchString = "नि. क्र. [:digit:]{1,4}"
rngs = ThisComponent.findAll(RDescrip)
for i = 0 to rngs.count-1
   foundText = rngs.getByIndex(i)
	foundText.CharFontNameComplex = "Lohit Marathi"
	foundText.CharHeightComplex = 12
   foundText.CharWeightComplex = 150
next i