Dim ObjectWord As Object
    Set ObjectWord = GetObject(, "Word.Application")
    Dim ObjectOpenWord As Object
    Set ObjectOpenWord = ObjectWord.ActiveDocument
          
    Dim ObjectOpenWordPath As String
    ObjectOpenWordPath = ObjectOpenWord.Path
    
    Dim ObjectOpenWordName As String
    ObjectOpenWordName = ObjectOpenWord.Name
    
    Dim ObjectOpenWordFullName As String
    ObjectOpenWordFullName = ObjectOpenWord.FullName
    
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim file As Object
    Set file = fso.GetFile(ObjectOpenWord)
     
    ObjectOpenWord.SaveAs (ObjectOpenWordPath & "\" & "111.doc")
    file.Delete