Здравствуйте, первый раз на этом форуме. Такая ситуация сложилась, что нужно скопировать таблицу из документа RTF\DOC формата в Excel. Написал код на VBA и вроде он неплохо работает, однако вылазит ошибка

Скрытый текст
Run-time error '1004' Метод Paste из класса Worksheet Завершен неверно

Причем, если нажмешь на debug и сделаешь шаг при помощи F8 то он пройдет без проблем.

Код выглядит вот так

Скрытый текст

Sub CopyData(ByVal aDoc As String, ByVal aWbook As String)    Dim oWd As Word.Application    Set oWd = GetObject(, "Word.Application")    For i = 1 to ActivaDocuments.Tables.Count:        Documents(aDoc).Activate        ActiveDocument.Tables(i).Range.Copy        Workbooks(aWbook).Activate        ActiveWorkbook.ActiveSheet.Cells(1, 1).Select        ActiveSheet.Paste        ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)    Next i End Sub

Насколько я понял проблема в объединенных ячейках таблицы в word. Но опять же - работает странно! Во время разных итераций ошибка вылазит разное количество раз на разных таблицах.

Если кто-то имеет хоть какие то намеки, пожалуйста напишите!)