Hi, Shelley Lou!
I would use a different approach:
Code:
Sub FormatManualNumbering()
Dim rng As range
Dim rngEnd As Long
Application.ScreenUpdating = False
Set rng = ActiveDocument.range
rngEnd = rng.End
rng.Characters.First.InsertBefore Chr(13)
Do
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchWildcards = True
.text = "^13*^t"
If .Execute And rng.End <= rngEnd Then
.text = "[,:; ]"
.Replacement.text = "."
.Execute Replace:=wdReplaceAll
Else: Exit Do
End If
If rng.Characters.Last.Previous <> "." Then
rng.Characters.Last.InsertBefore "."
End If
rng.Collapse wdCollapseEnd
End With
Loop
ActiveDocument.range.Characters.First.Delete
Application.ScreenUpdating = True
Set rng = Nothing
End Sub