On Oct 6, 8:37*am, gab1972 wrote:
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

Ugh...I did it again. I found the answer to my own question. It
never fails...I try try try to figure out what I'm doing wrong, then
post here, and then less than 10-15 minutes later I find the answer to
my own question.

Anyways, like always, I try to share what I found even if I answered
my own question. So what I have so far is coding that , from Excel, I
can find and replace text and then number format it. I found a line
of coding that goes with my wdStyleListNumber ( .Replacement.Style =
'whatever style you want) In this case, I wanted a numbered list so I
used my wdStyleListNumber. The next problem I ran into was that it
was far left justifying it and I needed it indented a few tabs over.
So I found there are multiple wdStyleListNumber's ranging from 1 to
5. In my case, 3 worked perfect. So here's a snippet of my edited
coding for your reading pleasure...maybe it'll help someone else out.

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
.Replacement.Style = wdStyleListNumber3 '<--- this
numbers the list and then moves it over 2 tabs justified
.Execute Replace:=wdReplaceAll 'replace all

End With

Along this same lines, you can also bullet your list and pretty much
completely change the whole formatting. Here is where I found my list
of wdStyle's:

http://techsupt.winbatch.com/webcgi/...~Constants.txt

Hope this helps someone else!