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

Sub Main()
 
    'переименовать открытый файл Ворда
    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
         
    'оператор для отлова ошибок, указывает, что при возникновении ошибки нужно переходить к следующей строке кода
    'On Error Resume Next
     
    'ошибка 4605
    '"Метод или свойство SaveAs недоступны, потому что диалоговое окно "Найти" или "Заменить" открыто"
    ObjectOpenWord.SaveAs (ObjectOpenWordPath & "\" & Replace$(Now, ":", "") & ".doc")
    'MsgBox$ Err.Number
    'удалить файл ...
    Kill (ObjectOpenWordPath & "\" & ObjectOpenWordName)
    
    'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
    Set ObjectWord = Nothing
    Set ObjectOpenWord = Nothing
 
End Sub