Can you modify this VBA for a record via loop instead of query.
If you don't use a query, then where are you getting your records from?

Also if filepath to word doc is not found a find file option and save.
The above code is setup so that if the folder filepath is not found, it will automatically create it. If you do not want to have a hardcoded filepath, but want the user to select it, then there are a few articles in the KB and plenty of posts about using the File Dialog window.