Sub StripIT

REM *****************************************************************************
REM This short macro can be used to remove all internal tags from OmT TMX files.
REM To use this macro, open your TMX as unicode (UTF-8), run the macro and 
REM save the TMX with a new name. 
REM *****************************************************************************


Dim Doc as Object
Dim Replace as Object

Doc = StarDesktop.CurrentComponent
Replace = Doc.createReplaceDescriptor

Replace.SearchRegularExpression = "True"
Replace.SearchString = "</?[fst][:digit:]?{1,2}>"
Replace.ReplaceString =""

Doc.replaceAll(Replace)

end sub