VBA insert period after manual numbering

[Shelley Lou]

When converting pdfs to word, more often than not the manual numbering that will become Heading 1 is often missing the full stop/period and because it is missing, I can't run my auto numbering macro. I'm trying to find a way to insert a period for manual numbers that do not already contain a period e.g. 1, 2, 10, 100 but not for 1.1, 1.1.1, 1.1.1.1 – I've tried many ways to do a find and replace but nothing seems to be working – can anyone help at all – many thanks



add period to manual number.docx

[Shelley Lou]

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

Capture.JPG

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