Replace Latex2rtf marker with actual images (Linux only, as the path is modified to remove the missing figure folder)

InsertLatex2RtfEps.bas

' Replace Latex2rtf marker with actual images in LibreOffice
' Linux only, as the path is modified to remove the missing figure folder
Sub InsertLatex2RtfEps

oText = ThisComponent.Text

RDescrip = ThisComponent.createReplaceDescriptor
RDescrip.searchRegularExpression = True
RDescrip.searchString = "\[###([^\]]*)###\]"
rngs = ThisComponent.findAll(RDescrip)
for i = 0 to rngs.count-1
   foundText = rngs.getByIndex(i)
   url = foundText.getString()
   urllen = Len(url)
   Mid(url, urllen-3, 4, "")
   Mid(url, 1, 15, "tmp")
   
   FileURL = convertToURL(url)
   objTextGraphicObject = ThisComponent.createInstance("com.sun.star.text.TextGraphicObject") 
   objTextGraphicObject.GraphicURL = FileURL
  

   Curs = oText.createTextCursorByRange(foundText)
   oText.insertTextContent(Curs.Start, objTextGraphicObject, false)
next i

RDescrip.replaceString =""
ThisComponent.replaceAll(RDescrip)

End Sub