На VB6 переименовать открытый файл Ворда

 
    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
    
    ObjectOpenWord.Close 'как закрывать без вопросов "Сохранить изменеия в документе", если были изменения???
    'как переименовать закрытый файл, в том числе и переместить
    
    'как открыть закрытый файл