Macro to run a few text formatting changes

[Badger75]

I need some macro help. I'm a moderate user, but this seems to be beyond my skill and the limits of the macro recorder. I'm trying to take all the text in the document, which may be a mix of different cases and has hard returns, and remove all the hard returns, then turn everything to uppercase. Bonus points if it also starts the spell check.

[macropod]

Originally Posted by Badger75

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

Not at all.

That said, try:

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