Step through document to make headers

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

ybazizi - 21 Mar 2005 02:11 GMT

I have a document that is about 600 pages long that I need to
programmatically make headers (Heading 1, Heading 2, Heading 3...) I want to
be able to step through a document line by line and read the contents of the
beginning of each line, and if it matches a certain text, make that line a
header. Is there any simple way I can use a loop to do this?

Thanks,

J

Reply to this Message

Greg Maxey - 21 Mar 2005 03:16 GMT

Not saying this is the best way, but something like this might do:

Sub Test()
Dim oPar As Paragraph

For Each oPar In ActiveDocument.Paragraphs
If InStr(oPar.Range.Text, "Match this text") = 1 Then
oPar.Style = "Heading 1"
End If
If InStr(oPar.Range.Text, "Match some other text") = 1 Then
oPar.Style = "Heading 2"
End If

Next oPar

End Sub

Replace "Match this text" and "Match some other text" with the certain text
you had in mind.

Signature

Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.

> I have a document that is about 600 pages long that I need to
> programmatically make headers (Heading 1, Heading 2, Heading 3...) I
[quoted text clipped - 6 lines]
>
> J

Reply to this Message

ybazizi - 21 Mar 2005 03:31 GMT

Thanks Greg - that was exactly what I needed. I just needed a good example
of the way to use the Range object.

J

> Not saying this is the best way, but something like this might do:
>
[quoted text clipped - 26 lines]
> >
> > J

Reply to this Message

Rate this thread: