On Oct 6, 8:37*am, gab1972 <glen.braml...@gmail.com> 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!
Similar Threads
