Change paragraph format in Word from Excel...

[gab1972]

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

 

[gab1972]

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...~ADSI~LDAP/OLE~with~Word+Word~-~Constants.txt

Hope this helps someone else!