LibreOffice Writer Basic macro to insert string "Th" without ligature

insert_Th_no_ligature.bas

Sub insert_Th_no_ligature
Dim oDoc as variant
    oDoc = ThisComponent
Dim oCurrentController as variant
    oCurrentController = oDoc.getCurrentController()
Dim oTextViewCursor as variant
    oTextViewCursor = oCurrentController.getViewCursor()
Dim oText as variant
If IsEmpty(oTextViewCursor.Cell) Then
    oText=oTextViewCursor.Text
Else
    oText=oTextViewCursor.Cell.Text
End If
oText.insertString(oTextViewCursor,"T" & chr(clng("&H2060")) & "h",false)
End Sub

Uses U+2060 = Unicode word joiner:

However, if encountered elsewhere it should, according to Unicode, be treated as a "zero-width non-breaking space."

---

Macro adapted from Ask.LibO Q&A. For macro string concatenation, see Macro Guide, p. 67 (70 of PDF).