run time error 521 Нельзя открыть буфер обмена

Function proba007(PathName As String)
 
        Dim WordApp As Word.Application ' экземпляр приложения
        Dim WordApp1 As Word.Application ' экземпляр приложения
        Dim DocWord As Word.Document ' экземпляр документа
        Dim DocWord1 As Word.Document ' экземпляр документа
        
        Set WordApp = New Word.Application
        Set WordApp1 = New Word.Application
        'определяем видимость Word-a по True - видимый,
        'по False - не видимый (работает только ядро)
        WordApp1.Visible = False
        Set DocWord1 = WordApp1.Documents.Open(PathName) 'Исходный объединяемый файл
        
        DocWord1.Activate ' активируем документ
        'Копируем документ с первого по последний абзац
        DocWord1.Range(DocWord1.Paragraphs(1).Range.Start, DocWord1.Paragraphs(DocWord1.Paragraphs.Count).Range.End).Copy
                   
       DocWord1.Close True 'Закрываем документ с сохранением изменений
       WordApp1.Quit 'закрываем экземпляр приложения
        
        WordApp.Visible = False
        Set DocWord = WordApp.Documents.Open(ItogFilePathCR)  'Исходный итоговый файл
        DocWord.Activate
        
        'Проверяем, что буфер обмен не пуст, и вставляем содержимое буфера в докумен с позиции последнего абзаца документа
        If Len(Clipboard.GetText) <> 0 Then DocWord.Paragraphs(DocWord.Paragraphs.Count).Range.Paste
       Clipboard.Clear 'очищаем содержимое буфера
                    
        DocWord.Close True 'Закрываем документ сохраняя изменения
        WordApp.Quit 'Закрываем приложение Word
 
        
End Function

DocWord.Paragraphs(DocWord.Paragraphs.Count).Range.Paste