Paul, nice use of the character class ([^13^l]) in the .Find function to replace all LineFeeds and FormFeeds with a paragraph mark (pilcrow -
¶).... which you later replace in the Excel range with a Carriage Return (char(10)). Do LineFeeds and FormFeeds both mark the end of a table?

I also like your use of the command concatenation operator ( : ) to string together similar commands on one line as in:

Set wdDoc = Nothing: Set wdApp = Nothing: Set WkSht = Nothing: Set WkBk = Nothing

And lastly, the GetFolder() function is the cats-meow of efficiency.

I do have a question about your use of the BinaryCompare argument to the Split() function. Why not the TextCompare argument?

Nicely done, as is all the VBA code of yours that I have viewed in my short time on VBA Express. Thanks for contributing so generously
to those of us toiling in the VBA arena.

Dave