Microsoft Office Forums - View Single Post - [Solved] Macro to run a few text formatting changes

macropod · 05-14-2021, 09:28 PM

Quote:

Originally Posted by Badger75

this seems to be beyond ... the limits of the macro recorder.

Not at all.

That said, try:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .Format = False
    .Forward = True
    .Wrap = wdFindContinue
    .Text = "[^13^l]{1,}"
    .Replacement.Text = " "
    .Execute Replace:=wdReplaceAll
  End With
  .Font.AllCaps = True
  .CheckSpelling
End With
Application.ScreenUpdating = True
End Sub