VBA help non breaking spaces for array of words not working correctly

Guessed · #2 03-07-2023, 03:56 PM

The plural of appendix is not just adding an s to the end. It is normally appendixes or appendices. The problem you are having is that you are enclosing the find text in a single set of (brackets) when you need two separate sets if you want to replace something inside there.

This would all be a lot more straightforward if you simply expand the array to include all acceptable plurals.

Code:

  Dim arr() As String, i As Integer, sFind As String
  sFind = "[Aa]ppendix [Aa]ppendixes [Aa]ppendices [Cc]lause [Cc]lauses [Pp]aragraph [Pp]aragraphs [Pp]art [Pp]arts [Ss]chedule [Ss]chedules"
  arr = Split(sFind, " ")
  With ActiveDocument.Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .MatchWildcards = True
    For i = 0 To UBound(arr)
      .Text = "(" & arr(i) & ") ([0-9.]{1,})"
      .Replacement.Text = "\1^s\2"
      .Execute Replace:=wdReplaceAll
    Next
  End With

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to Globally Remove Non-breaking Spaces	PSSMargaret	PowerPoint	3	11-15-2021 01:06 PM
Adding non-breaking spaces to cross references	seanspotatobusiness	Word	3	07-22-2018 07:48 AM
Spaces between words, help!	cheffie	Word	2	10-02-2013 01:59 PM
An array of words from a document knowing the font style	Kreol2013	Word VBA	0	07-08-2013 01:29 AM
Non-breaking spaces in random emails	Tri	Outlook	3	02-04-2013 06:35 AM