'ThisDocument' is the document containing the macro - probably the normal template. What you are interested in here is the 'ActiveDocument'. The code you need is
Code:
Dim myName As String
myName = Left(ActiveDocument.FullName, InStrRev(ActiveDocument.FullName, Chr(46))) & "docx"