Microsoft Office Forums - View Single Post - [Solved] VBA insert period after manual numbering

Shelley Lou · 03-05-2023, 03:45 AM

So I think I've figured out the find and replace finally.

Capture.JPG

Code:

Sub AddFullStop()
    Application.ScreenUpdating = False
Selection.HomeKey Unit:=wdStory
With Selection.Find
  .ClearFormatting
  .Forward = True
  .Wrap = wdFindContinue
  .Format = True
  .MatchWildcards = True
  .Replacement.ClearFormatting
  .text = "(^13)([0-9]@)([ ^t])"
  .Replacement.text = "\1\2.\3"
  .Execute Replace:=wdReplaceAll
    End With
  Application.ScreenUpdating = True
End Sub