после запуска макроса возникает ошибка Несоответствие типов (ошибка 13)
С макросами плохо знаком и не понимаю причину.
Возможно ли как то исправить?
Файл с макросом приложил
Файл я ваш взял, больше нет необходимости его выкладывать.
В ближайшее время посмотрю.
В какой строке кода происходит ошибка?
Call RecursiveFolderSearch(wordApp, folderPath, searchText, ws, lastRow)
Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.
Проблема с параметром tbl As Excel.ListObject.
Вы вызываете:
Call RecursiveFolderSearch(wordApp, folderPath, searchText, ws, lastRow)
где ws - это: Dim ws As Worksheet
А в процедуре это параметр: tbl As Excel.ListObject
Здесь без знания программирования видна нестыковка: Worksheet и ListObject это разные объекты.