Okay, so yesterday I figured out how to find and replace some
information in a Word document from Excel. The information I find and
replace in Word from Excel has multiple lines - so when I'm done I
have several lines of information. I need to format this into a
numbered list. Anyone know how to change the paragraph formatting in
Word from Excel? The line of code I have doesn't seem to work so I'm
thinking I either didn't do it right or I'm missing something or I
have it in the wrong section.

Thanks in advance!

Sub EditWordDoc()
Dim wrdApp As Word.Application 'creates a dialog with Word
Dim wrdDoc As Word.Document 'creates a dialog with a document
Set wrdApp = GetObject(, "Word.Application")
wrdApp.Visible = True 'show the document
wrdApp.Activate
Set wrdDoc = wrdApp.Documents.Open("Z:\COMMON FILES\Encroachment
Permits\Permit.Tracker\Testing\testdoc.doc")
With wrdDoc.Range.Find 'Find within the document...
.Text = "aaaa" '...this text and then replace it
with...
.Replacement.Text = "Insufficient plans." & vbCr & "Other
stuff." & vbCr '...this text
.Execute Replace:=wdReplaceAll 'replace all
'.Execute Format:=wdStyleListNumber <--- this doesn't
work
End With

'clear everything and quit
'wrdApp.Quit ' close the Word application
'Set wrdDoc = Nothing
'Set wrdApp = Nothing
End Sub