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