REM TM Sichern als tmx und docx 


DIM dname AS String
DIM tmname AS String
DIM wordname AS String

Set tm = CreateObject("TextMaker.Application")
tm.Application.Visible = True

dname=tm.ActiveDocument.Name

l=len(dname)
test=Right(dname, 5)
test=Mid(test, 1, 1)
If test="." Then l=l-4 Else l=l-3
dname=Mid(dname, 1, l)

tmname=dname+"tmdx"
wordname=dname+"docx"



   tm.ActiveDocument.SaveAs wordname, tmFormatOpenXML
   tm.ActiveDocument.SaveAs tmname, tmFormatDocument