Search entire document for String and Select all instances at once

Question

I am new to VBA. I want to search a Word document for all occurrences of the string "the", and select all the occurrences at once.

Currently, I have this code,