Visual Basic drobna rzecz z nazwą pliku

Witajcie,

Mam bardzo proste makro konwertujące plik z docx na doc, wygląda tak:

Sub Makro1()
'
' Makro1 Makro
'
'
    ChangeFileOpenDirectory "C:\Users\Entertainment\Desktop\"
    ActiveDocument.SaveAs FileName:="Dok2.doc", FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
End Sub

To co chce osiągnąć jest bardzo proste tylko nie wiem jak zrobic by nazwa zapisywanego pliku była taka sama jak otwieranego czyli pisze coś takiego:
winword /t d:\nazwa_pliku.docx /mnazwa_makra

i chce aby na wyjściu otrzymać zapisany plik z nazwą nazwa_pliku a nie z góry ustaloną przez makro czyli w tym przypadku Dok2.doc

 nazwa = ActiveDocument.Name
 nazwa2 = Left(nazwa, InStrRev(nazwa, ".")) & "doc"
 MsgBox nazwa & vbNewLine & nazwa2

Dzięki.