How can i find using regex in word VBA and replace each match with a substring from the match?

Question

I’m writing a macro to find matches using a regex pattern. For each match I would like to replace it with a substring from the match itself.

For example: Find all strings