Performing Find loop on all Word documents in a folder, writing results to a Spreadsheet

Hi all,

VBA rookie here. I am trying to write an Excel macro that opens a number of Word documents one-by-one, performs a find loop, and writes the found text to the spreadsheet. My code is throwing a type mismatch error on the line

Please Login or Register  to view this content.

Any help would be appreciated!!

Please Login or Register  to view this content.