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

Решение задачи: «На VB6 переименовать открытый файл Ворда»

textual
                            Листинг программы 
                        
21 if err then MsgBox$ Err.Number 'примерно так обрабатываются ошибки при On Error Resume Next