Sorting Request Help Needed

macropod · #1 12-28-2015, 09:48 PM

You'll need to explain what you mean. The only code pertaining to the prefix #s you start out with is:

Code:

      .Text = "(^13)[0-9]{1,}. (ACA-[0-9]{5})"
      .Replacement.Text = "\1\2"
      .Wrap = wdFindContinue
      .Execute Replace:=wdReplaceAll

Note that there are additional code lines interspersed with these that you'd need even if not deleting the prefix #s.

Subsequently, all the following code reinstates the prefixing:

Code:

  With .Range
    With .Find
      .Text = "^13ACA-[0-9]{5}"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchWildcards = True
      .Execute
    End With
    Do While .Find.Found
      i = i + 1
      .Start = .Start + 1
      .InsertBefore vbCr & i & ". "
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
A Formula Request	Planner18	Project	8	01-10-2017 01:16 PM
Urgent help needed: Sorting/searching fields	cvrm	Excel	2	04-17-2014 05:47 AM
Formula Help Request	OTPM	Excel	16	12-16-2013 01:57 PM
I need help with macro...code needed for automatic sorting	chefmate	Excel Programming	1	08-26-2012 01:04 AM
Formula help request	JAMS	Excel	2	04-06-2012 10:14 PM