VBA insert period after manual numbering

Shelley Lou · #2 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Remove manual numbering after Outline numbering	Shelley Lou	Word VBA	2	08-04-2021 12:24 AM
VBA converting manual numbering to auto numbering	Shelley Lou	Word VBA	8	05-28-2021 01:08 AM
page numbering for manual	Bursal	Word	1	07-29-2018 02:08 PM
Insert manual page breaks	Crowdie	Word	5	07-31-2015 07:36 AM
Insert a period between cells?	nikknock	Word Tables	1	10-16-2014 02:47 PM