Удалить используемую память при динамическом создании документа word из vba excel

Dim oWord As Object
Dim oDocument As Object


Sub Add_Doc_Zadvizhek()
    Dim Mytime, myTimeSokr As String 'Переменная для текущего времени
   Dim MyDate As String 'Переменная текущей даты
   Dim TimeDate As String 'Переменная содержащая дату и время
   Dim NameWihtoutDate, SaveFileName As String 'NameWihtoutDate - Имя файла без даты, FileName - имя файлы с датой
   Dim Dlina_Mytime As Integer 'длина строки
   Dim Putfile As String
    Dim tableNew As Object
    Dim docActive As Object
    Dim i, j As Integer
    Dim myRange As Object
    Dim nach_poz As Integer
    Dim kon_poz As Integer
    Dim kol_zadv As Integer
    Dim provKoncStran As Integer
    Dim NomNachStrShkaf, NomKonStrShkaf, NomTekStroki, KolZadvShkafa As Integer
    Dim nextPage As Integer 'Индикатор следующей страницы, перешла ли строка таблицы на следующую страницу
   Dim tekStrDokum, RowPredStolb As Integer
    Dim NazvShkProdolj As String
   
    'Даём этому экземпляру имя "oWord". Через это имя
   'будем обращаться к программе Word.
    Set oWord = CreateObject("Word.Application")

    'Делаем программу "Word" видимой.
    oWord.Visible = True

    'Создаём в программе Word документ и обращаемся к этому
   'документу как "oDocument".
    Set oDocument = oWord.Documents.Add
 
    'Присваиваем объекту docActive активный документ приложения oWord
    Set docActive = oWord.ActiveDocument
   
Далее идет заполнение документа большим объемом данных...