Thanks so much for both replies. I am working through it and hopeful I can get the document looking a lot better.
There are however some images that I have been unable to get rid of. I have done a few things to try and fix it. I did a replace ^g with nothing.
I took Guessed's advice with find: "^13([a-z])" and replace with " \1".
I also ran a macro that someone recommended to me:
Sub Macro1()
Dim oShape As Shape
Dim i As Integer
For i = ActiveDocument.Shapes.Count To 1 Step -1
Set oShape = ActiveDocument.Shapes(i)
If oShape.Type = msoPicture Then
oShape.Delete
Else
Debug.Print oShape.Type
End If
Next i
Set oShape = nothing
End Sub