View Single Post
 
Old 03-07-2023, 11:00 AM
Shelley Lou Shelley Lou is offline Windows 10 Office 2016
Expert
 
Join Date: Dec 2020
Posts: 259
Shelley Lou is on a distinguished road
Default VBA help non breaking spaces for array of words not working correctly

I would be really grateful for some pointers on where I'm going wrong with the below code. I have an array of words I want to change the space to a non breaking space between the word and digit(s) and their plural e.g looks for clause and clauses etc.

At the moment it is putting the non breaking space before the word e.g. clause. I've tried \1^s but that puts it at the end of the digit. I've tried \1^s\2 and other variations but they all just give me an error - I'm just not sure where I'm going wrong for something that should be quite straightforward.

Code:
ArrFndB = Array("[Aa]ppendix", "[Cc]lause", "[Pp]aragraph", "[Pp]art", "[Ss]chedule")
Code:
For i = 0 To UBound(ArrFndB)
   .text = "(" & ArrFndB(i) & "[s ]@[0-9.]{1,})"
   .Replacement.text = "^s\1"
   .Execute Replace:=wdReplaceAll
   Next
Reply With Quote