VBA Word utility: several search and replace operations

I need a VBA utility for word. Deliverable: Two buttons in word 365. Button 1: when clicked and text is marked do for marked text following actions: step 1: search for " " (two blanks) replace with: " " (single blank) repeat until no replacements are possible anymore step 2: search for " ." (blank and period). replace with "." repeat until no matches are found anymore. step 3: search for " ,"; replace with "," --- button 2: find using regex patterns: [reegex pattern 1] replace with [regex pattern 2] example text for button 2: "the fox (5) greets the dog (3)" is marked -> button 2 is pressed-> text changes to: "the fox 5 greets the dog 3" NOTE: When submitting your proposal please indicate [regex1 pattern1] and [regex pattern 2] you would use.